Скрипт, запускающий команду в cmd

Const HdrLines=1 'число строк заголовка (можно поставить 0)
Folder = "C:\Users\MiNotebook\Desktop\Otchet" 'ваша папка
Set oShA = CreateObject("Shell.Application")
Set oFiles = oShA.NameSpace(Folder).Items 
oFiles.Filter 64,"*.xlsx" 'выбираем только файлы с расширением .xlsx
If oFiles.Count <> 2 Then WSH.Quit 'считаем, что их должно быть ровно 2, но можно и поправить на любое кол-во
Set xl = CreateObject("Excel.Application") 'стартуем excel
Set wbo = xl.Workbooks.Add 'Создаем пустую книгу
Set wso = wbo.Sheets.Item(1) 'это её первый лист
xl.Visible = False ' на что тут смотреть-то?
ii = 1 ', строка, начиная с которой вставляем
Set wbi = xl.Workbooks.Open(Folder & "\" & oFiles.item(0).Name) 'приоткроем чуть-чуть один из файлов
Set wsi = wbi.Sheets.Item(1)
if HdrLines > 1 Then  'Если есть заголовок
  ii = HdrLines 'выделим его
end if
Set rr = wsi.Range(wsi.cells(1,1),wsi.Cells(ii, wsi.Columns.count).End(-4159)) 'определяем длину строки заголовка или первой
rr.copy 'копируем в буфер
wso.pastespecial(8) 'приводим ширины колонок к исходным
if HdrLines > 0 Then ' если заголовок не нулевой копируем и его
  wso.paste
  ii = HdrLines+1
end if
xl.CutCopyMode = False 'очистим буфер, чтобы не задолбал лишними вопросами при закрытии файла
wbi.close(False) 'приподзакроем этот файл
 
For Each F In oFiles ' теперь одинаково для всех файлов
  Set wbi = xl.Workbooks.Open(Folder & "\" & f.Name) 'Открыли
  Set wsi = wbi.Sheets.Item(1) 'первый лист
  Set rr = wsi.Range(wsi.cells(wsi.rows.count,1).End(-4162),wsi.Cells(1+HdrLines, wsi.Columns.count).End(-4159)) 'определим заполненный диапазон
  rr.copy wso.cells(ii,1) 'скопируем его в новый файл
  ii = ii + rr.Rows.Count 'Номер текущей строки ставим после вставленного фрагмента
  xl.CutCopyMode = False 'чистим буфер, на всякий случай
  wbi.close(False) 'закрываем исходный файл
Next '...и по кругу...
wbo.saveAs Folder &"\output",51 'сохраняем тот, куда всё накопировали
wbo.close ' закрываем его и чистим объекты
Set oFiles = Nothing: Set oSha = Nothing: Set xl = Nothing
Set wbi = Nothing: Set wbo = Nothing
Set wsi = Nothing: Set wso = Nothing

xl.Visible = True