Copiaría y pegaría la primera celda de una hoja en la última fila para todas las hojas de un libro de trabajo y mi código no funciona, el código se realiza solo en la hoja activa.

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

Gracias por tu ayuda