how to insert a blank row every 3 rows

dave3009

Well-known Member

Joined

Jun 23, 2006

Messages

7,142

Office Version

1. 365
2. 2021

Platform

1. Windows
2. Mobile
3. Web

• Apr 5, 2009

• #2

Use the number 4 instead of 6

 

Upvote 0

VoG

Legend

Joined

Jun 19, 2002

Messages

63,650

• Apr 5, 2009

• #3

Try

Code:

Sub AAA()
Dim LastRow As Long
Dim RowNdx As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For RowNdx = LastRow To 3 Step -3
    Rows(RowNdx).Insert
Next RowNdx
End Sub

 

Upvote 0

crimson_b1ade

Well-known Member

Joined

Sep 27, 2008

Messages

1,557

• Apr 5, 2009

• #4

i only see one number there, 6. So if 6 inserts a row every fifth then maybe try changing 6 to 4? seems logical to do so, right?

 

Upvote 0

E

excelquestion123

New Member

Joined

May 25, 2008

Messages

23

• Apr 5, 2009

• #5

thanks all.

All responses did the job.

 

Upvote 0