Почему мой код VBA не копируется и не вставляется, когда лист не активен?

Question

После долгих поисков в сети и поиска в сети я не смог определить, что не так с моим кодом.

Если я запускаю следующий код на листе XXXXX, последняя строка копируется и вставляется встрока ниже без проблем:

Private Sub CommandButton1_Click()

Dim EndRow

EndRow = Range("A65536").End(xlUp).Row

Range("A" & EndRow, "M" & EndRow).Copy Range("A" & EndRow + 1, "M" & EndRow + 1)

End Sub

Однако мне нужно запустить код из другой вкладки и получить следующую формулу, которая не работает.Нажата кнопка, и ничего не копируется и не вставляется:

Private Sub CommandButton2_Click()

Dim EndRow
EndRow = Sheets("XXXXX").Range("A65536").End(xlUp).Row

With Sheets("XXXXX")

.Range("A" & EndRow, "M" & EndRow).Copy Range("A" & EndRow + 1, "M" & EndRow + 1)

End With
End Sub

Куда я иду не так ???

Спасибо за вашу помощь.

Answer 1

Все объекты, которые должны указывать на блок With, должны иметь префикс ..Ваш второй экземпляр Range пропустил это.Итак,

.Range("A" & EndRow, "M" & EndRow).Copy Range("A" & EndRow + 1, "M" & EndRow + 1)

переходит к

.Range("A" & EndRow, "M" & EndRow).Copy .Range("A" & EndRow + 1, "M" & EndRow + 1)