I already have the following macro to insert a blank row after every 5 rows:
Instead of blank rows, I would rather an entire row od dashes or dots, so when printed, I have data separated every 5 rows by continuous dashes.
Application.ScreenUpdating = False
Dim numRows As Integer
Dim r As Long
r = Cells(Rows.Count, "A").End(xlUp).Row
numRows = 1
For r = r To 1 Step -5
ActiveSheet.Rows(r + 1).Resize(numRows).Insert
Application.ScreenUpdating = True
Additionally, is there a way to shade every other group of 5 rows?
Any help is appreciated.
Dim Counter As Integer
For Counter = 1 To Selection.Rows.Count
If Counter Mod 2 = 1 Then
Selection.Rows(Counter).Interior.Pattern = <insert colour>
Selection.Rows(Counter).Interior.Pattern = <insert other colour>