合并多个EXCEL,公式问题？求高手！

Sub ModMergedTables() '合并工作表
    Application.ScreenUpdating = False
    MyPath = ActiveWorkbook.Path
    MyName = Dir(MyPath & "\" & "*.xls")
    xlBookName = ActiveWorkbook.Name
    Num = 0
    Do While MyName <> ""
        If MyName <> xlBookName Then
            Set xlBook = Workbooks.Open(MyPath & "\" & MyName)
            Num = Num + 1
                With Workbooks(1).ActiveSheet
                    xlBook.Sheets(1).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row, 1)
                    xlBookNum = xlBookNum & Chr(13) & xlBook.Name
                    xlBook.Close False
                End With
        End If
    MyName = Dir
    Loop
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub

我想每张表前四行内容不要复制，要怎么改，求高手，谢谢~~！
上面这段代码，是复制所有的了！
[解决办法]
和公式有什么关系？

给你个歪办法，前四行不要复制，那拷贝前可以把前四行删除，再拷贝，别保存就行。

Rows("1:4").Select
Selection.Delete Shift:=xlUp