Range("A2:BO" & Cells(Rows.Count, 1).End(xlUp).Row)
 

Range(Cells(1, 2), Cells(2, Columns.Count).End(xlToLeft).Column & Cells(Rows.Count, 1).End(xlUp).Row)
 

Sub Сохранить_копию_файла()
    Dim strFileName As String
    strFileName = ThisWorkbook.Path & Application.PathSeparator & ActiveWorkbook.Name & " — копия" & ".xlsm"
    If Dir(strFileName) <> "" Then
    Else
    Dim objFSO As Object, objFile As Object
    Dim sFileName As String, sNewFileName As String
    ChDir ThisWorkbook.Path
    sFileName = ActiveWorkbook.Name
    sNewFileName = ActiveWorkbook.Name & " — копия" & ".xlsm"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.GetFile(sFileName)
    objFile.Copy sNewFileName
    End If
End Sub 

Dim objFSO As Object, objFile As Object
Dim sFileName As String, sNewFileName As String
sFileName = ActiveWorkbook.Name
sNewFileName = ActiveWorkbook.Name & "_копия." & ".xlsm"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(sFileName)
objFile.Copy sNewFileName 

Private Sub Workbook_Open()
Dim x As String
strPath = "C:\Users\UF070\Desktop\Новая папка"
On Error Resume Next
x = GetAttr(strPath) And 0
If Err = 0 Then ' если путь существует - сохраняем копию книги
strDate = Format(Now, "dd/mm/yy hh-mm")
FileNameXls = strPath & "\" & Left(ActiveWorkbook.Name, _
Len(ActiveWorkbook.Name) - 4) & " " & strDate & ".xls"
ActiveWorkbook.SaveCopyAs Filename:=FileNameXls
Else 'если путь не существует - выводим сообщение
MsgBox "Папка" & strPath & " недоступна или не существует!!", vbCritical
End IfEnd Sub