Repeating Rows at the bottom of each printed excel sheet using VBA

 Sub MyFooter()

Dim StrFtr As String, Rng As Range, Sh As Worksheet, c As Range

Set Sh = Worksheets("Sheet5")

Set Rng = Sh.Range("A55:G55")

For Each c In Rng

StrFtr = StrFtr & c & " "

Next c

ActiveSheet.PageSetup.LeftFooter = StrFtr

End Sub