delvillardennis
Member
Hi awesome ninjas,
I have a macro code given below:
My problem is to have code that would copy the values below the inserted blank row (Step 4) . Thanking in advance for the usual assistance.
I have a macro code given below:
Code:
Sub Macro ()
'1: Declare your variables.
Dim MyRange As Range
Dim iCounter As Long
'2: Define the target Range.
Set MyRange = Range("a28:ck1011")
'3: Start reverse looping through the range.
For iCounter = MyRange.Rows.Count To 5 Step -3
'4: Insert one blank row.
MyRange.Rows(iCounter).EntireRow.Insert
'Step 5: Increment the counter down
Next iCounter
End Sub
Last edited by a moderator: