INSERT ROW DATA INTO EVERY SECOND ROW [Solved/Closed]

Report
Posts
1
Registration date
Thursday May 16, 2013
Status
Member
Last seen
May 16, 2013
-
TrowaD
Posts
2576
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
December 10, 2019
-
Hi

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.

Would appreciate any expert's help!


thanks
Posts
2576
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
December 10, 2019
383
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
6
Thank you

A few words of thanks would be greatly appreciated. Add comment

CCM 5771 users have said thank you to us this month