insert 3 rows between data
Option Explicit
Sub testme()
Dim wks As Worksheet
Dim iRow As Long
Dim FirstRow As Long
Dim LastRow As Long
Dim HowManyRows As Long
Set wks = Worksheets("Sheet1")
HowManyRows = 3
With wks
FirstRow = 2
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For iRow = LastRow To FirstRow Step -1
.Rows(iRow).Resize(HowManyRows).Insert
Next iRow
End With
End Sub
timdavis100 wrote:
I need a loop statement to insert 3 rows between each row of data in the
active range. For example:
1
2
3
I need 3 rows inserted between 1 and 2, 3 rows inserted between 2 and 3.
Thanks in advance!
--
Dave Peterson
|