Sub Копируем_листы_в_другую_книгу()

Dim bookconst As Workbook
Dim abook As Workbook
Application.ScreenUpdating = False 'отключаем обновление экрана для скорости
Set abook = ActiveWorkbook 'присваиваем перменную активной книге
'открываем книгу, если не существует, то создаем
If Dir("C:\Users\SK\Desktop\Отчеты\Отчет по визитам 1.xlsx") = "" Then
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\Users\SK\Desktop\Отчеты\Отчет по визитам 1.xlsx"
Else
Workbooks.Open Filename:=("C:\Users\SK\Desktop\Отчеты\Отчет по визитам 1.xlsx"
'проверка на наличие листа и создание при его отсутствии
On Error Resume Next
'Sheets("Компания1").Activate
'or
With Sheets("Компания1"): End With
If Err Then Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Компания1": Err.Clear
On Error GoTo 0
'переходим в активную книгу откуда необходимо скопировать данные
abook.Worksheets("1").Activate
Range("A:I").Copy 'копируем определенный диапазон листа
bookconst.Worksheets("Компания1").Activate 'активируем лист куда необходимо вставить данные
Range("K1").Select 'встаем на ячейку
'вставляем данные ячеек
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'вставляем форматы ячеек
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
'удаляем столбцы
Columns("A:J").Select
Selection.Delete Shift:=xlToLeft
End If
'сохранить текущую книгу
bookconst.Save
'Закрыть книгу
bookconst.Close
abook.Activate

If Dir("C:\Users\SK\Desktop\Отчеты\Отчет по визитам 2.xlsx") = "" Then
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\Users\SK\Desktop\Отчеты\Отчет по визитам 2.xlsx"
Else
Workbooks.Open Filename:=("C:\Users\SK\Desktop\Отчеты\Отчет по визитам 2.xlsx"
'проверка на наличие листа и создание при его отсутствии
On Error Resume Next
'Sheets("Компания2").Activate
'or
With Sheets("Компания2"): End With
If Err Then Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Компания2": Err.Clear
On Error GoTo 0
'переходим в активную книгу откуда необходимо скопировать данные
abook.Worksheets("2").Activate
Range("A:I").Copy 'копируем определенный диапазон листа
bookconst.Worksheets("Компания2").Activate 'активируем лист куда необходимо вставить данные
Range("K1").Select 'встаем на ячейку
'вставляем данные ячеек
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'вставляем форматы ячеек
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
'удаляем столбцы
Columns("A:J").Select
Selection.Delete Shift:=xlToLeft
End If
'сохранить текущую книгу
bookconst.Save
'Закрыть книгу
bookconst.Close
abook.Activate

End Sub