Петля для всех листов в рабочей книге не работает
Я бы скопировал и вставил первую ячейку листа через последнюю строку для всех листов в книге, и мой код не работает, код выполняется только на активном листе.
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
Спасибо за вашу помощь