VBA: Copy range and paste in every following sheet?

[JumboCactuar]

Hi,
I want to quickly copy a range from the active sheet (A2:A500) and paste into every sheet that follows (including cell formats) but not in any previous sheets.

Any help appreciated

 

[JLGWhiz]

Sub t()
Dim i As Long
    For i = ActiveSheet.Index + 1 To ThisWorkbook.Sheets.Count
        ActiveSheet.Range("A2:A500").Copy Sheets(i).Cells(Rows.Count, 1).End(xlUp)(2)
    Next
End Sub

 

[JumboCactuar]

Sub t()
Dim i As Long
    For i = ActiveSheet.Index + 1 To ThisWorkbook.Sheets.Count
        ActiveSheet.Range("A2:A500").Copy Sheets(i).Cells(Rows.Count, 1).End(xlUp)(2)
    Next
End Sub

Works perfectly thank you

 

[JLGWhiz]

Works perfectly thank you

You're welcome,
regards, JLG