Ошибка выполнения VBA 1004 при экспорте данных в файл CSV

Question

Я пытаюсь экспортировать отдельный лист в новый файл CSV, когда я запускаю макрос, он работает отлично. Но когда я делюсь файлом с коллегами, экспорт в макрос csv выдает «Ошибка времени выполнения 1004» - вы не можете вставить это здесь, потому что область копирования и область вставки не имеют одинаковый размер. Выберите только одну ячейку в области вставки или области того же размера и попробуйте вставить снова. "

Sub ExportToCSV()

    Dim mypath As String, myfilename As String

    Dim wb As Workbook, wb2 As Workbook

    Dim rng As Range

    Application.ScreenUpdating = False

    Set wb = ThisWorkbook

    'Set rng = Application.InputBox("Select cell ranges with changes:", "Cells to be copied", Default:="Select Cell Range", Type:=8)

    'lastRow = Range("A" & Rows.Count).End(xlUp).Row

    Set rng = Range("A2:C" & Cells(Rows.Count, 1).End(xlUp).Row)

    rng.Copy

    Set wb2 = Application.Workbooks.Add(1)

    wb2.Sheets(1).Range("A1").PasteSpecial 'xlPasteValues

    myfilename = "Wave - " & Format(Now, "ddmmmmyyyy")

    fullpath = wb.Path & "\" & myfilename

    Application.DisplayAlerts = False

    If MsgBox("Data Copied to " & wb.Path & "\" & myfilename & vbCrLf & vbCrLf & _

        "Warning:  Files in directory with same name will be overwritten!!", vbQuestion + vbYesNo) <> vbYes Then

        Exit Sub

    End If

    If Not Right(myfilename, 4) = ".csv" Then myfilename = myfilename & ".cdv"

    With wb2

        .SaveAs Filename:=fullpath, FileFormat:=xlCSV, CreateBackup:=False

        .Close False

    End With

    Application.DisplayAlerts = True
End Sub