求各位高人来帮忙

stephenson4x

各位好，小弟新来报到，仿照书中《别怕，excel VBA其实很简答》中多表格合并成一个表格的程序，为何每次都提示错误？我用的是2007，因此行数设定成20万行，数据表每个sheet的列数和定义都是一致的，程序如下：

Sub hebing()
Dim sht As Worksheet, xrow As Integer, rng As Range
  Worksheets.Add before:=Worksheets(1)
    For Each sht In Worksheets
        If sht.Name <> ActiveSheet.Name Then
            Set rng = Range("A200000").End(xlUp).Offset(1, 0)
            xrow = sht.Range("A1").CurrentRegion.Rows.Count - 1
    sht.Range("A2").Resize(xrow, 16).Copy rng
    End If
    Next
End Sub
其中调试的时候，每次都是说红色字体这一行有误，但是小弟实在不知道错在哪了，请各位高人指教！谢谢

hehex

报的具体什么错？从代码上看不出问题来啊。{:soso_e132:}