VBA ошибка при сортировке таблицы

Формулировка задачи:

Здравствуйте, код выдает Выдает ошибку Run-time error 1004 Application-defined or object-defined error на сортировке
В трех словах о том что должно получиться в итоге
Я считаю количество одинаковых значений (ячеек, строк) в первом столбце, потом хочу выделить это количество строк в остальных трех столбцах и отсортировать уже эти выделенные ячейки.
Если Вручную написать первую ячейку, то все работает, а если переменной, от уже нет. Типы данных подаю строку.
Помогите разобраться, пожалуйста.

Sub сортировка_2_столбец()
Range("AJ1").Select
k = 0: n = 1
Do While IsEmpty(ActiveCell) = False: k = k + 1: ActiveCell.Offset(1, 0).Select: Loop
Range("AJ1").Select
Stop1 = "AJ" & (ActiveCell.Row + k)
Stop2 = "AJ1" & ":" & Stop1
Do While ActiveCell = ActiveCell.Offset(1, 0): n = n + 1: ActiveCell.Offset(1, 0).Select: Loop

Nachalo = Chr(ActiveCell.Column / 26 + 64) & Chr(ActiveCell.Column Mod 26 + 65) & (ActiveCell.Row + 1 - n)
Konec = Chr(ActiveCell.Column / 26 + 64) & Chr(ActiveCell.Column Mod 26 + 67) & (ActiveCell.Row)

Range(Nachalo & ":" & Konec).Select

' сортировка автоматическая
Selection.Sort Key1:=Range(Nachalo), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchElseIf:ъlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

' сортировка ручная
Selection.Sort Key1:=Range("AK1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:ъlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End Sub

Решение задачи: «VBA ошибка при сортировке таблицы»

textual
                            Листинг программы 
                        
                            ThisWorkbook.Worksheets("Лист 1").Range("A1").Select