every 3 row insert a blank row

[mabalo76]

I have a spreadsheet with some data, i want to insert a blank row on every 3 row

For example i have original data below
1
2
3
4
5
6
7
8
9


I want data like blow
1
2
3

4
5
6

7
8
9

 

[jproffer]

This will do that, including the very top row, which you can always delete after it's done.

Sub test()
Dim i As Long
Dim LR As Long

LR = Range("[B][COLOR=#ff0000]A[/COLOR][/B]" & Rows.Count).End(xlUp).Row

For i = LR To 1 Step -1
    If i Mod 3 = 1 Then
        Range("[COLOR=#ff0000][B]A[/B][/COLOR]" & i).EntireRow.Insert
    End If
Next i

End Sub

Change "A" to whatever column you're interested in.

BTW, please test this on a copy of your workbook, not the original. Just in case it does something you don't like.

 

[mabalo76]

Thanks Jproffer, it works great!

 

[jproffer]

You're very welcome. Glad it worked. Thanks for the feedback.