I have an excel sheet with blank rows every odd line (i.e rows 2,4,6,8...700 are empty). I have to paste a row of data (the same all the way through) into each of these blank rows. So I have paste the same data in every blank row (odd rows) from A1 - H1.
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
