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

昨天在论坛就合作工作表问题请教了高手
得到了某位版主的帮助
下面是他给出的程序语句
我想问的是 如果我的工作表不是2页 而是65页 应该如何修改？ 修改哪里？
在弱弱的问一句：怎么在excel里面读入这些语句啊  以前只用过简单的逻辑函数  没用过VBA  
怎么使VBA语句实现它的功能也不清楚。。。。
望各位不吝赐教  小弟在这里拜谢了

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

怎么没人回复啊
啊啊啊啊啊啊