я есть такие данные:

A049
A050
A051
A053
A054
A055
A056
A062
A064
A065
A066

И я хочу вывод, как:

Как видите, я хочу, чтобы диапазоны были в последовательном порядке

Я пытаюсь что-то вроде этого:

Private Sub CommandButton1_Click()

    Set wb = ThisWorkbook
    lastRow = wb.Sheets("Sheet1").Range("A" & wb.Sheets("Sheet1").Rows.Count).End(xlUp).Row
    For i = 2 To lastRow
        r = wb.Sheets("Sheet1").Range("A" & i).Value

        If wb.Sheets("Sheet1").Range("A" & i).Value = wb.Sheets("Sheet1").Range("A" & i+1).Value
    Next i
End Sub

Но не помогает мне