Ich möchte die erste Zelle eines Blatts durch die letzte Zeile für alle Blätter in einer Arbeitsmappe kopieren und einfügen. Mein Code funktioniert nicht. Der Code wird nur auf dem aktiven Blatt ausgeführt.

Sub Macro5()
'
' Macro5

 Dim ws As Worksheet

 For Each ws In ActiveWorkbook.Worksheets

     Range("A2").Copy Destination:=Range("A3:A" & Cells(Rows.Count, "B").End(xlUp).Row)

 Next ws

End Sub

Danke für Ihre Hilf