Borders Around Cell Fill Down

[Vlr516]

This forum has been wonderful helping me learn about macros and vba. I come back to the group to see if I can get assistance on how to fill down a border to the last row.

On a pre-designed template with the All Borders around each cell beginning row 6 - row 27 to column H. My macro brings data in from multiple other sheets and sometimes the final Row on the activesheet is longer than what was preformatted. Once I have all the data into place on my activesheet, how do I write the code to grab only the border from A6:H6 and fill down to the Finalrow?

Thanks.

 

[mumps]

Try:

Sub CopyBorders()
    ActiveWorkbook.Styles("Normal").IncludeBorder = False
        Range("A6:H6").Copy
        With Range("A7:H" & Range("A" & Rows.Count).End(xlUp).Row)
            .PasteSpecial -4122
            .Style = "Normal"
        End With
    ActiveWorkbook.Styles("Normal").IncludeBorder = True
End Sub