Hi MadLooni,
The following code will copy the data from A1:H1 and will paste it to every odd row until row 699:
Sub FillInOddRows()
Dim x As Integer
Range("A1:H1").Copy
x = 1
Do
x = x + 2
Range("A" & x).PasteSpecial
Loop Until x = 699
Application.CutCopyMode = False
End Sub
Best regards,
Trowa