vba excel，增量宏

Question

我的宏有问题。我有2500个数字，我想对数字进行排序：1：10，下一个跳到17、17：48，再跳到50，然后再跳一个。 这是我的代码，我可以找到一个错误

Sub numeracja()
    Dim IleNaLiscie, licznik As Integer

    Sheets("sum").Select
    Range("L1").Activate
    IleNaLiscie = 0
    licznik = 1

    Do While licznik < 100
        Do While ActiveCell.Offset(IleNaLiscie, -10).Text <> ""   
            If IleNaLiscie < licznik * 10 Then
                Do While IleNaLiscie < licznik * 10
                    ActiveCell.Offset(IleNaLiscie, 0).Copy
                    ActiveCell.Offset(IleNaLiscie, -11).Select
                    ActiveSheet.Paste
                    Range("L1").Activate
                    IleNaLiscie = IleNaLiscie + 1
                Loop 
            Else
                IleNaLiscie = IleNaLiscie + 6 'HERE

                If IleNaLiscie < licznik * 48 Then    
                    Do While IleNaLiscie < licznik * 48
                        ActiveCell.Offset(IleNaLiscie, 0).Copy
                        ActiveCell.Offset((IleNaLiscie - 6), -11).Select
                        ActiveSheet.Paste
                        Range("L1").Activate
                        IleNaLiscie = IleNaLiscie + 1
                    Loop
                Else 
                    IleNaLiscie = IleNaLiscie + 2

                    If IleNaLiscie = licznik * 50 Then 'here "licznik" isn't increment but it goes to the 'HERE' 
                        licznik = licznik + 1
                    Else

                    End If
                End If
            End If
        Loop
    Loop
End Sub

，然后不再再次执行所有程序。 你能帮我吗？