Есть кусок макроса

[code1c]While x <= UBound(FilesToOpen)
       Workbooks.Open Filename:=FilesToOpen(x)
       Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
       x = x + 1
   Wend[/code1c]

он выполняет перебор выбранных файлов и переносит на листы в один файл.
Подскажите как сделать так чтобы он их переносил на один лист и для файлов начиная со второго первую строку не переносил?
Заранее спасибо!