Sub ClearList()
Sheets("REPORT").Select
Dim sh, sh1, sh2, sh3, sh4 As String
Dim n, nn As Long

    sh1 = "PAID"
    sh2 = "NOT PAID"
    sh3 = "DEACTIV"
    sh4 = "PAYME"
  
    
nn = 4
For n = 1 To nn

sh = "sh" & n
Sheets(sh).Range("A:A").EntireRow.Delete

Next n

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("G:G,L:L")) Is Nothing Then
Dim B As String

B = Selection.Address
Range("G4") = Range(B)
Call FilterVOEN

End If
If Not Intersect(Target, Range("N:N")) Is Nothing Then
Call INFO

End If

If Not Intersect(Target, Range("G:L")) Is Nothing Then
Dim SRow As String
SRow = Selection.Row
Range("N" & SRow).ClearContents

End If

End Sub

Range("A5:E" & Cells(Rows.Count, 1).End(xlUp).Row).Select

Set importWB = Workbooks.Open(Filename:=FilesToOpen(x))

On Error GoTo ERROR1
*****
*****
ERROR1
*****
*****
On Error GoTo ERROR2
*****
*****
ERROR2
*****
*****

Sub mac()
Dim M As String
   M = Range("A1").Value
mac & M
End Sub

Sub mac1()
Range("A3").Select

End Sub
Sub mac2()
Range("A5").Select
End Sub

Windows("PAYMENTS_FN.xlsm").Activate

Sub Макрос3()
Range("I8:I" & Cells(Rows.Count, 4).End(xlUp).Row).Select
    Selection.FormulaR1C1 = "=IF(COUNTIF(R8C4:RC[-5],[@1])=1,VLOOKUP([@1],Таблица24,2,0),"""")"
        Selection.Copy
Range("I8:I" & Cells(Rows.Count, 4).End(xlUp).Row).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Sub Создать_книгу()
Workbooks.Add

ActiveWorkbook.SaveAs Filename:="C:\Users\Sirius\Desktop\7777.xlsx"
End Sub

Sub ЗАГРУЗКА_И_ФИЛЬТР()
    Dim sFull As String
      sFull = Sheets("СФ").Range("K1").Value
      Workbooks.Open Filename:=sFull
      Windows("БАЗА.xlsm").Activate
      Sheets("Контрагенты").Select 'тут ошибка.
   

Sub Перенос()
Sheets("Лист1").Select
    Range("C3:G" & Cells(Rows.Count, 4).End(xlUp).Row).Select 'Этот код!!!
    Selection.Copy
    Range("K3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Sub Макрос2()
    Cells.Select
    Range("I1").Activate
    Selection.ClearContents
    Sheets("Sheet1").Select
    Cells.Select
    Selection.Copy
    Sheets("БАЗА").Select
    Cells.Select
    Range("I1").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
 
    Dim sSubStr As String 
    Dim lCol As Long 
    Dim lLastRow As Long, li As Long
    Dim arr   
    sSubStr = ""
    
    lCol = 26
    If lCol = 0 Then Exit Sub
 
    lLastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
    arr = Cells(1, lCol).Resize(lLastRow).Value
 
    Application.ScreenUpdating = 0
    Dim rr As Range
    For li = 2 To lLastRow 
        If CStr(arr(li, 1)) <> sSubStr Then 
                Set rr = Cells(li, 1)
            Else
                Set rr = Union(rr, Cells(li, 1))
            End If
        End If
    Next li
    If Not rr Is Nothing Then rr.EntireRow.Delete
    Application.ScreenUpdating = 1
 End Sub

Sub Название_Макроса()
 'Выделить диапазон который необходимо скопировать
Sheets("BazaFinish").Select
Range("A1:AK150000").Select
 'Скопировать то, что выделено
Selection.Copy
ChDir "C:\Users\sirius\Desktop\Папка1\" '"путь к папке где лежит файл в который необходимо скопировать"
Workbooks.Open Filename:="BAZA.xlsm"  '"Название файла, который находится в папке, путь к которой указан выше"
 'Выделить начальную ячейку в которую необходимо вставить скопированные данные
Range("A6").Select
 'Вставить данные
ActiveSheet.Paste
 'сохранить текущую книгу
ActiveWorkbook.Save
 'Закрыть книгу
ActiveWorkbook.Close
End Sub