Sub КопироватьFull()
'Копирование нужной информации в Книге2
   Dim ws As Worksheet
   Set ws = ActiveSheet ' Запоминаем активный лист

   ws.Protect Password:="1111", UserInterfaceOnly:=True
   'Копируем видимые ячейки без использования Select
   ws.Range("A4:P5000").SpecialCells(xlCellTypeVisible).Copy
End Sub

Sub RunMacroAndPaste()
   Dim Книга1 As Workbook, Книга2 As Workbook
   Dim wsКнига1 As Worksheet

   ' Определяем активные книги
   Set Книга2 = ActiveWorkbook
   
   ' Переключаемся на другую книгу (предполагается, что она была открыта ранее)
   ' Находим книгу по имени (если знаете имя) или перебираем все открытые книги
   For Each wb In Application.Workbooks
       If wb.Name <> Книга2.Name Then
           Set Книга1 = wb
           Exit For
       End If
   Next wb

   If Книга1 Is Nothing Then
       MsgBox "Не найдена другая открытая книга!"
       Exit Sub
   End If

   ' Активируем Книгу1
   Книга1.Activate
   Set wsКнига1 = Книга1.Sheets("ИмяЛиста") ' Замените "ИмяЛиста" на нужное имя листа

   ' Вставляем значения и форматы без использования Select
   With wsКнига1.Range("A35")
       .PasteSpecial Paste:=xlPasteValues
       .PasteSpecial Paste:=xlPasteFormats
   End With

   Application.CutCopyMode = False ' Убираем выделение после копирования
End Sub

Sub Hotkeys()
   Application.OnKey "^+X", "КопироватьFull"
End Sub