a = Cells.Find("Наименование товара").row 'строка начала таблици
ilastcolumn = Cells(a, Columns.count).End(xlToLeft).Column

Sub заголовок()

'макрос ищет слово "Наименование товара" и проверяет правее: пусто там или нет, если будет пусто, удоляем правее все пустые столбцы

Dim a As Variant
Dim n As Variant
Dim rCell  As Variant
Set rCell = Cells.Find("Наименование товара")

For Each a In rCell   ' вот здесь я замутил цикл, он работает только один раз.

If rCell.Offset(0, 1).Resize(1, 1) = "" Then

a = rCell.Offset(0, 1).Resize(1, 1).Column
Columns(a).Delete
End If
Next
End Sub

Dim flag As Boolean
    For Each myFile In myFolder.Files
        flag = True
        For Each bk In Workbooks
            If bk.Name = myFile.Name Then
                flag = False
                Exit For
            End If
        Next bk
        If flag Then
            'Ваш код    
            ' Я ПОДСТАВИЛ ПЕРЕХОД К МЕТКЕ:
          GoTo metka_NextFile   

        End If
    Next myFile

    For Each myFile In myFolder.Files
        For Each bk In Workbooks
            If bk.FullName <> ActiveWorkbook.FullName Then
                If bk.name = myFile.name Then
               
                'ВОТ ТУТ ПОПЫТАЛСЯ ВСТАВИТЬ переход к следующему файлу, не прокатывает так((:   

               Next myFile

                   
                End If
            End If
        Next bk
    Next myFile

спецификация:
 Do While Right(LCase(avFiles), 4) = ".xls" ' зе пирст дал
    'Do While avFiles <> "" - оригинал
     'Do While LCase(avFiles) Like "*.xls" - это я мастырил
   
 '====================================
 'Правильнее будет после этой строки
 'Do While avFiles <> ""
 'добавить условие
 'If Right(LCase(avFiles), 4) = ".xls" Then
'обработка файла
  'End If
 '======================================
        If sActWB <> avFiles Then
            Workbooks.Open sPath & avFiles, False
        End If
        bCnt = False
        With Sheets(sShName1)
            avArr = .UsedRange.Value
            'Итоги по суммам
            lc = Find_Col(avArr, sFndStr)
            lr = .Cells(.Rows.Count, lc - 1).End(xlUp).Row + 1
            For li = 5 To 1 Step -1
            
                If li = 1 And avArr(lr, lc - alStep(li - 1)) = 0 Then
             
                    bCnt = True
                Else
                    adblSums(li) = adblSums(li) + avArr(lr, lc - alStep(li - 1))
                End If
            Next li
            'Итоги по Кол-во мест:
            lc = Find_Col(avArr, sFndCntStr) + 1
            lr = .Cells(.Rows.Count, lc - 1).End(xlUp).Row
            If bCnt Then
                adblSums(1) = adblSums(1) + avArr(lr, lc) + avArr(lr, lc + 1)
            Else
                dblCntSum = dblCntSum + avArr(lr, lc) + avArr(lr, lc + 1)
            End If
        End With
        If sActWB <> avFiles Then ActiveWorkbook.Close 0
        avFiles = Dir
        
    Loop
     
    'подводим суммы в текущем файле
   
    With Workbooks(sActWB).Sheets(sShName1)
  
        avArr = .UsedRange.Value
        'заносим результаты суммирования на лист
        lc = Find_Col(avArr, sFndStr)
        lr = .Cells(.Rows.Count, lc).End(xlUp).Row + lRowsCnt_UnderLastRow
        For li = 1 To 5
            With .Cells(lr, lc - alStep(li - 1))
                .Value = adblSums(li)
                .EntireColumn.AutoFit
                .Borders.Color = -4165632: .Borders.Weight = xlThin
                .Interior.Color = 12040422
                If li < 3 Then .NumberFormat = ""
            End With
        Next li
        With .Cells(lr, lc - alStep(0)).Offset(, -3).Resize(, 13)
            .Font.ColorIndex = 3: .Font.Size = 18: .Font.Bold = True
        End With
        With .Cells(lr, lc - alStep(0)).Offset(, -3)
        .Value = "сумма инвойсов:"
        End With
        'lc = Find_Col(avArr, sFndCntStr) + 1
'        lc1 = Find_Col(avArr, sFndCntStr) - 3
      '     lc = "сумма инвойсов"
'        With .Cells(lr, lc)
'            .Value = dblCntSum
'            .EntireColumn.AutoFit: .NumberFormat = ""
'            .Borders.Color = -4165632: .Borders.Weight = xlThin
'            .Interior.Color = 12040422
'        End With
    End With
   
    Call Check.Main
     '11. Прокрутка экрана к концу талбицы:
    prokrutka
    Application.ScreenUpdating = 1
End Sub

Do While avFiles <> ""  

Do While LCase(avFiles) Like "*.xls"

Sub Main(control As Office.IRibbonControl)
Dim avFiles, sPath As String, li As Long, le As Long, lr As Long, lc As Long
.................
avFiles = Dir(sPath & "*.xls")  -вот тут задал расширение 

' проверяем кол-во файлов в папке, и если их больше возможного- вставляем строки
' чтобы неналазило на таблицу
Sub ВставкаСтрок()
    Dim counter
    Dim fn
    Dim myFSO As Object, myFolder As Object, myFile As Object
    
    
    If ActiveSheet.Name = "спецификация" Then
     Set c_naim = ActiveSheet.Cells.Find(what:="Наименование товара", LookAt:=xlWhole)
        naim_row = c_naim.Row
      End If
      
      
     '3. Создание объекта для работы с папками и файлами.
    Set myFSO = CreateObject(Class:="Scripting.FileSystemObject")
 
    ChDir myFSO.GetFolder(ActiveWorkbook.Path)
    
    fn = Dir("*.xls")
    counter = 0
     
    While Len(fn) > 0
     
    counter = counter + 1
    fn = Dir()
    Wend
    ' счётчик файлов: counter
    'макс. возиможное колическтво: naim_row - 6
    'сколько строк вставляем: counter - naim_row - 6  
    
    
    'eсли макс возможное меньше или равно счетчику:
    
   If naim_row - 6 <= counter - 1 Then
   
   
   ' то сумма строк будет равна :
            counter_ins_row = counter - (naim_row - 6)
            For i = 1 To counter_ins_row
                Rows(naim_row).Insert
            Next
        End If       
   ' Stop
End Sub