Hello, I have managed to find a VBA script that inserts a gap every 2501 rows perfectly, but rather than just a blank cell, I'd like it to insert some dashes --------
Here is my existing code;
I presume something goes under this line
but I'm not sure how to accomplish this.
Would one of the kind souls here be able to help me out?
Here is my existing code;
VBA Code:
Sub InsertRowEveryXrows()
Dim rw As Long
Dim lr As Long
Dim cnt As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
rw = 1
cnt = 1
Do
If cnt = 2501 Then
Rows(rw).Insert Shift:=xlDown
cnt = 1
Else
cnt = cnt + 1
End If
rw = rw + 1
Loop While rw <> lr
End Sub
I presume something goes under this line
VBA Code:
Rows(rw).Insert Shift:=xlDown
Would one of the kind souls here be able to help me out?