Loop med for each

Hej

Jeg har forsøgt at lave et loop, der skal indsamle data fra de enkelte ark i et regneark og indsætte dem i arket 'Konsolider'.
Men jeg kommer ikke rigtig længere end til arket konsolider. Hvad er der galt?

Sub indsamldata()

For Each sht In ActiveWorkbook.Worksheets
 
        Range("A8").Select
        Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
        Selection.Copy
        Sheets("konsolider").Select
        ActiveCell.SpecialCells(xlLastCell).Select
        ActiveSheet.Cells(ActiveCell.Row, 1).Select
        Selection.Offset(1, 0).Select
        ActiveSheet.Paste

Next sht
 
End Sub