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.

Sub InsertRows()
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
Next r
Application.ScreenUpdating = True
End Sub

Additionally, is there a way to shade every other group of 5 rows?
Any help is appreciated.
James

Give this a try and let us know how you get on.

Oh and

They both work well, thanks. Is there a way to make the dashes/dots fill cells of varying widths? In the one you gave above, it only enters the amount of dashes entered in the macro.

Think about it and then answer this question;
How do you define the width of a cell?