Repeating Format Automatically On Scrolling Down To New Page

[Excel Fox]

Try this...

When you reach the 3rd row of each page, the code will automatically copy the RangeToCopy that is in the hidden sheet within the workbook. This assumes that each of your page has 46 rows.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

    If Target.Row Mod 45 = 3 Then
        If IsEmpty(Target) Then
            Worksheets("Sheet1").Range("RangeToCopy").Copy Sh.Cells(Target.Row, 1)
        End If
    End If
    
End Sub