Hi , and a good day to all programmers

I need to have a macro to put in a range ,
( for example Range A1 : E 1000 ) , to every
8-th row , borders , like this :

With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

A lot of thanks in advance