Debug code, copy method of range class failed

[vpan]

Hi Can anyone debug my code?

Not sure whats wrong, it highlights my copy method inside the for loop.

Thanks in advance!

Sub LoopSheets()
Dim r As Long
Dim WorksheetsCount As Long
Dim LastRow As Long
LastRow = Worksheets("Summary").Range("D" & Rows.count).End(xlUp).Row
WorksheetsCount = Worksheets.count
      
    For r = 10 To WorksheetsCount
        Worksheets(r).Range("$A5:$A24").Copy _
        Destination = Worksheets("Summary").Range("D1:D" & LastRow)
    Next r

End Sub