應該用formula 都寫到, a2開始
If(Mod(row(),18)=2,offset(sheet1!a1,int(row()/18)+1,0),a1)
Sub Copy_sheets()
Dim Sh1, Sh2 As Worksheet
Set Sh1 = Worksheets("Sheet1")
Set Sh2 = Worksheets("Sheet2")
For i = 1 To 1000
Sh2.Range("A" & i).Value = Sh1.Range("A" & (i - 1) \ 18 + 1).Value
Next
End Sub