Selection.AutoFill Destination:=Range("A1:A10")

Selection.AutoFill Destination:=Range("A" & const : "A" & const + const2)

Sub macros
Workbooks.Open Filename:="C:\Users\Книга1.xlsb"
Application.Run"'Книга1.xlsb'!macros222"
ActiveWindow.Close False
End Sub

Sub macros
Zapad=ThisWorkbook.Sheets("adres").Range("A1")
Windows(Zapad).Activate
Application.Run"'Книга1.xlsb'!macros222"
ActiveWindow.Close False
End Sub

  Function formula(arg, minvp, minoc, normvp, normoc, maxvp, maxoc As Variant) As Variant
  If (arg > normvp) And (arg <= maxvp) Then formula = Round(normoc + ((arg - normvp) / (maxvp - normvp) * (maxoc - normoc)), 2)
  End Function

Workbooks("Книга1.xlsx").Activate

Sub KillDir()
    Dim sDirName As String
 
    sDirName = "C:\Рабочий стол\Папка для удаления" ' для удаления файла добавляю имя файла
 
    If Dir(sDirName, 16) = "" Then MsgBox "Нет такой папки", vbCritical, "Ошибка": Exit Sub
 
    Kill sDirName
End Sub

Sub NoColor()
    Dim sFolder As String, sFiles As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
    End With
    
    Application.ScreenUpdating = False
    
    sFiles = Dir(sFolder & Application.PathSeparator & "*.xlsb*")
    Do While sFiles <> ""
        Application.Workbooks.Open sFolder & "\" & sFiles, False
        Range("J60").Select
        With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        End With
        ActiveWorkbook.Save
        ActiveWindow.Close
        sFiles = Dir
    Loop
    
    Application.ScreenUpdating = True

End Sub

Sub NoColor()
    Dim sFolder As String, sFiles As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
    End With
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    sFiles = Dir(sFolder & "*.xlsb*")
    Do While sFiles <> ""
        Workbooks.Open sFolder & sFiles
        Range ("J50").Select
        With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        End With
        ActiveWorkbook.Save
        ActiveWindow.Close
        sFiles=Dir
    Loop
End Sub