Sub Copy_Cells_to_EXT_file() скопировать ячейки во внешний файл
Dim DST_lr& ' последняя занятая строка накопителя

Dim cnt As Long
Dim cell As Range

MsgBox "Ты выбрал диапазон:" & Selection.Address
If Selection.Cells.Count = 1 Then
If MsgBox("Копируем всего одну ячейеку? о_О", vbYesNo, "Warning") = vbNo Then Exit Sub
End If
cnt = 0
For Each cell In Selection
If Not IsEmpty(cell) Then
cnt = cnt + 1
End If
Next
If cnt = 0 Then
If MsgBox("А в ячейках то пусто! Продолжишь?!", vbYesNo, "Warning") = vbNo Then
Exit Sub
End If
End If
'ActiveSheet.UsedRange.Select
Selection.Copy
Workbooks.Open ("C:\UsersDocuments\\Файл_Пустой.xlsm")
Sheets(1).Range("A2:B2:C2:D2:H2:I2:J2:K2:L2:M2:N2:O2:P2:Q2")..PasteSpecial xlPasteAll
End Sub