Метод Delete из класса Range завершен неверно

If NewWb.Sheets(j).Name = "Прайс-лист" Then
    NewWb.Sheets(j).Range("A10:I12").Select
    Selection.Delete
                
    NewWb.Sheets(j).Cells(41, 2).Value = "* Версия для печати"
                
    NewWb.Sheets(j).Range("A1").Select
Else
    NewWb.Sheets(j).Range("A7:K9").Select
    Selection.Delete ()
    NewWb.Sheets(j).Range("A1").Select
End If

NewWb.Sheets(j).Range("A7:K9").clear

NewWb.Sheets(j).Range("A7:K9").Delete Shift:=xlUp

            Else
               NewWb.Sheets(j).Range("A7:K9").Select
               Selection.AutoFilter
              Selection.Delete Shift:=xlUp

Dim objFS, objExcel, objWB, strPath, strExt, strList
strPath = "C:\Users\Garold\Downloads\"
Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists(strPath) Then
    Set objExcel = CreateObject("Excel.Application")
    For Each objItem In objFS.GetFolder(strPath).Files
        strExt = Left(LCase(objFS.GetExtensionName(objItem)), 3)
         If strExt = "xls" Or strExt = "xlsx" Or strExt = "xlsm" Then
            objExcel.Visible = False
            objExcel.DisplayAlerts = False
            Set objWB = objExcel.Workbooks.Open(objItem.Path)
            With objWB
                .Worksheets(1).Rows("1").Delete              
                .Save
                .Close
            End With
           strList = strList & objItem.Name & vbNewLine
         End If
    Next
    objExcel.Quit: Set objExcel = Nothing
    
    
End If
Set objFS = Nothing
WScript.Quit 0