Sub Test()
    Dim FilesToOpen1
    Dim FilesToOpen2
    Dim x As Integer
    Dim NewPath As String
    Dim NewFolder As String
 
    Application.ScreenUpdating = False  
     
    'импорт файлов
    FilesToOpen1 = Application.GetOpenFilename _
      (FileFilter:="All files (*.*), *.*", _
      MultiSelect:=False, Title:="Выберите шаблон")
    
    FilesToOpen2 = Application.GetOpenFilename _
      (FileFilter:="All files (*.*), *.*", _
      MultiSelect:=True, Title:="Выберите файлы с данными")
 
    If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "Не выбрано ни одного файла!"
        Exit Sub
    End If
     
     'Открываем шаблон куда будем вставлять данные
        Set importWB1 = Workbooks.Open(Filename:=FilesToOpen1)
        'Открываем по очереди файлы с данными
    
    Dim awb
    Set awb = ActiveWorkbook
    'Проходим по всем выбранным файлам
    x = 1
    While x <= UBound(FilesToOpen2)
        
        Set importWB2 = Workbooks.Open(Filename:=FilesToOpen2(x))
        
        'копируем содержимое листа с данными и вставляем в шаблон
        importWB2.Sheets(1).Range("A1:CV759").Copy importWB1.Sheets("OJ").Cells(1)
        
        'название файла берем из ячейки
        awb.Sheets("OJ").Activate
        Range("B3").Select
        n = ActiveCell.Value
        
        'будущее название полученного файла NewPath
        NewPath = importWB1.Path & "\1\" & n & ".xlsx"
        'ñсоздаем вложенную папку 1
        NewFolder = importWB1.Path & "\1\"
        If Len(Dir(NewFolder)) = 0 Then 'если такой папки нет, то создаем ее
        MkDir NewFolder
        End If
        
        'пытаемся сохранить шаблон и тут падает ошибка
        importWB1.SaveAs NewPath, FileFormat:=51
        importWB2.Close savechanges:=False
        x = x + 1
    Wend
  
    Application.ScreenUpdating = True
End Sub

NewPath = ActiveWorkbook.Path & "\1\" & n & "" & ".xlsx"
ActiveWorkbook.SaveAs Filename:=NewPath, FileFormat:=5

NewPath = ActiveWorkbook.Path & "\1\" & n & "_1" & ".xlsx"
ActiveWorkbook.SaveAs Filename:=NewPath, FileFormat:=51