如何将多个工作表内的内容合并到一个工作表内？？

请教各位高手
用什么函数可以将第一页和第二页的内容合并到一页中？

具体的效果就是将第一页中的18个物料和第二页中的18个物料合并到第三页
使得第三页一共有36个物料

PS：这两页标题完全相同 结尾也相同

请测试
Sub Macro1()
    Dim lr As Long
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("合并").Delete
    Sheets("第1页").Copy After:=Sheets(2)
    With ActiveSheet
        .Name = "合并"
        lr = .[a1].CurrentRegion.Rows.Count
        .[a1].CurrentRegion.Offset(lr - 4).Clear
        Sheets("第2页").[a1].CurrentRegion.Offset(3).EntireRow.Copy .Cells(lr - 3, 1)
    End With
End Sub