repeat rows at bottom

I toppen og i venstre side er ikke noget problem ....
Det kan gøres under sideopsætning.

Alternativt kan du bruge sidehoved og sidefod til at løse dit problem.

Ja, men så kan jeg jo ikke indsætte en hel række !!

I princippet kan man næste indsætte hvad som helst i footeren ....

Jeg vil gerne have en fed streg i bunden af hver side jeg udskriver. Jeg kan ikke indsætte stregen ved nogle faste rammer da der hides forskellige rækker under udskrift !

SF1 = navngivet område eks. A1 til A5
SF2 = navngivet område eks. B1 til B5

Sub OpretSideFod()
Dim Tekst As String
For C = 1 To 60
  Tekst = Tekst & "_" ' streg forneden, ret selv på antal
  Next
    Tekst = Tekst & vbLf
  For Each C In Range("SF1")' første række
  Tekst = Tekst & " " & C
  Next
  Tekst = Tekst & vbLf
    For Each C In Range("SF2")' 2. række
  Tekst = Tekst & " " & C
  Next
  ActiveSheet.PageSetup.LeftFooter = "&""Arial,Fed""&14" & Tekst
' skrift Ariel fed størrelse 14

End Sub

prøv at lege lidt med den

Det var lige det jeg var på jagt efter. Tak for hjælpen.