Sub SaveFile()   'Объявление переменных
   Dim CellValue As String
   Dim Path As String
   Dim FinalFileName As String
   Dim i As Integer
   i = 1
    Do While i <= 48
   'Задаём каталог сохранения файла (в данном случае текущий каталог)
   Path = ThisWorkbook.Path & "\"   'Получаем значение ячейки. На листе2 расположен список городов.
   CellValue = Worksheets("Лист2").Cells(i, 1)   'Формируем итоговый путь и название файла
   FinalFileName = Path & CellValue
    ActiveSheet.Range("$A$2:$T$15717").AutoFilter Field:=3, Criteria1:=CellValue

    
   'Сохраняем файл
   ActiveWorkbook.SaveAs Filename:=FinalFileName, _
                      FileFormat:=xlOpenXMLWorkbookMacroEnabled

    i = i + 1
    
    Loop
    
  End Sub

Sub Макрос()
'Application.ScreenUpdating = False
Dim Rcount As Long
Dim i As Long, x As Long
Workbooks.Open Filename:="I:\МСБ\Микробизнес\Аналитика\CRMzadachi.xlsx"       #файл открывается
Workbooks("otchet").Worksheets("Лист2").Range("A3:Q10000").Clear                          #ошибка вылетает тут

With Workbooks("zadachi").Worksheets("zadachi")
Rcount = .Range(.Range("O3"), .Range("O10000").End(xlUp)).Rows.Count
End With
With Workbooks("otchet").Worksheets("Лист2")
x = 3