8.х Excel - макрос

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

Код:

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

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

Move - это перетаскивание, тут описано что листы с других книг перетаскиваются в одну книгу (другую)

сам код вот такой

Код:

Sub CombineWorkbooks()
Dim FilesToOpen
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files (*.xls), *.xls", _
MultiSelect:=True, Title:="Files to Merge")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "Не выбрано ни одного файла!"
GoTo ExitHandler
End If
x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub

как переделать код, чтобы он не добавлял листы в книгу, а копировал содержимое (заполненые области) и вставлял их в один лист, при этом он должен не копировать 1-ую строчку после первого файла (так как там шапка)