Adding blank rows every 3rd row
Public Sub ProcessData()
Const TEST_COLUMN As String = "A" '<=== change to suit
Const FIRST_ROW As Long = 0 '<=== set to 2,1, or 0
Dim i As Long
Dim iLastRow As Long
Dim cell As Range
Dim sh As Worksheet
With ActiveSheet
iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow - (iLastRow Mod 3) To 2 Step -3
Rows(i).Insert
Next i
End With
End Sub
--
---
HTH
Bob
(change the xxxx to gmail if mailing direct)
"liz25mc" wrote in message
...
Can someone provide coding to add a blank row every 3rd row in Excel 2003.
Thanks in advance!
|