Copiar e colar a primeira célula de uma planilha na última linha de todas as planilhas de uma pasta de trabalho e meu código não está funcionando, o código é feito apenas na planilha ativa.

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

Obrigado pela ajuda