Excel VBA问题求助

Melway

Sheet1里有一列有不同的手机号，想自动把不同的手机号摘出来，copy到不同的sheet里，sheet的标题就是手机号，title就是第一行title(每个sheet都一样)，但是运行之后可以生成以各个手机号命名的sheet，但是不copy内容，最后出error 9, Subscript out of range.

请教大大们这时什么问题。

Sub Macro1()
'
' Macro1 Macro
'

'
    Dim AccountNumber
    RawData = Application.InputBox("Please enter the name of the sheet with raw data", "Mobile Bill Analiser")
    AccountNumberColumn = Application.InputBox("Please enter the Column containing Account Number", "Mobile Bill Analiser")
   
    Sheets(RawData).Select
    Range(AccountNumberColumn & "2").Select
   
    AccountNumber = 1
    Transfername = ActiveCell.Value
    Rows("1:1").Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Transfername
    Range("A1").Select
    ActiveSheet.Paste
    Sheets(RawData).Select
    ActiveCell.Offset(1, 0).Select
   
    Do Until ActiveCell.Value = ""
        If ActiveCell.Value = ActiveCell.Offset(-1, 0).Value Then
                ActiveCell.Offset(1, 0).Select
        Else
           Rows("1:1").Copy
           Transfername = ActiveCell.Value
           Sheets.Add After:=Sheets(Sheets.Count)
           ActiveSheet.Name = Transfername
           Range("A1").Select
           ActiveSheet.Paste
           Sheets(RawData).Select
           ActiveCell.Offset(1, 0).Select
        End If
    Loop
   

    Sheets(RawData).Select
    Range(AccountNumberColumn & "2").Select
    Do Until ActiveCell.Value = ""
            SheetName = ActiveCell.Value
            Rows("2:2").Cut
            Sheets(SheetName).Select
            Range("A2").Select
            Selection.Insert Shift:=xlDown
    Loop

大饼

Debug your code step by step,就能找到那一行出了问题。
我做copy，不select row或cell。都是直接copy的。我也不知道是否专业。
wbTempleteRecord.Sheets(1).Rows(2).Copy wbOutput.Sheets(3).Rows(LastRowOutput)

bats

Sheets(SheetName).Select
            Range("A2").Select
to
            Sheets(SheetName).Select
            Rows("2:2").Select