Sub Emul_F2()    
ActiveCell.Select
    Dim lCnt As Long
    Do While lCnt < 150
        Application.SendKeys "{F2}"
        Application.SendKeys "{ENTER}"
        lCnt = lCnt + 1
    Loop
End Sub

Sub vst()
Dim wb As String: wb = ThisWorkbook.Path & "\Книга2.xlsm" 'путь к основной книге (куда копировать)
With Application
   .EnableEvents = False
   .Calculation = xlCalculationManual
   .ScreenUpdating = False
   .Visible = False
Workbooks.Open Filename:=wb
ThisWorkbook.Worksheets("Таблица").Cells.Copy ActiveWorkbook.Worksheets("Таблица").Cells 'копируем все данные с активного листа
'Workbooks("Куда.xlsm").Worksheets("Лист1").Range("A1:G25").Copy
ActiveWorkbook.Close (True)
   .EnableEvents = True
   .Calculation = xlCalculationAutomatic
   .ScreenUpdating = True
   .Visible = True
   End With
End Sub

Sub Протянуть_формулу()
    [I12].Resize(Cells(Rows.Count, "a").End(xlUp).Row - 1, 1).FormulaR1C1 = "=VLOOKUP(RC[-7],Повторы!C[-8]:C[-7],2,0)"
End Sub

Sub Копировать()
  If Intersect(ActiveCell, Range("A:A")) Is Nothing Then
    MsgBox "Чтобы выполнить команду, выделите нужную ячейку в столбце A", vbInformation, "Внимание!!!"
    Exit Sub
  End If
  ActiveCell.EntireRow.Copy
End Sub

 ActiveSheet.Paste

  ActiveSheet.Paste