Increase copy and paste range after each loop

I want to make the code below loop and each time it does Sheet1 copy Range increases by 18 rows while Sheet2 paste range increases by 1 row until the macro finds an empty range (without contents) in Sheet1, Can you help?

Sheets("Sheet2").Range("C2:R2").Value = _
Sheets("Sheet1").Range("C6:C21").Value