为什么复制别人的代码可以运行，自己写的就不能运行？

佛香江

Sub fl()
    Dim i As Long, mz As String, rng As Range
        i = i + 1
        mz = Cells(i, "C").Value
        Do While mz <> ""
        Set rng = Worksheets(mz).Range("A65536").End(xlUp).Offset(1, 0)’（这行是复制的，可以运行；下面一行是自己写的，不能运行）
          'Set rng = Worksheets(mz).Range("A65536").End(xlUp).Offset(1, 0)
        Cells(i, "A").Resize(1, 7).Copy rng'（这行是复制的，下面一行是自己写的）
        'Cells(i, "A").Resize(1, 7).Copy rng
        i = i + 1
        mz = Cells(i, "C").Value
        Loop
End Sub