В Экселе столбик А сделать все знаки строчные, отсортировать от А до Я

Количество_строк = ActiveSheet.Rows.Count 'количество строк активного листа, которое везде одинаковое
Последняя_заполненная_строка_в_столбце_A = Range("A" & Количество_строк).End(xlUp).Row
Dim HelloRange As Range
Set HelloRange = Range("A1:A" & Последняя_заполненная_строка_в_столбце_A)
HelloRange.Select
'формат-регистр-все строчные
HelloRange = wdLowerCase
'сортировка с А до Я, при сортирвке с Я до А - Order1:=xlAscending
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

'сортировка с А до Я, при сортирвке с Я до А - Order1:=xlAscending
Selection.Sort Key1:=Range("A1:A" & Последняя_заполненная_строка_в_столбце_A), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Sheets("Лист1").Range("A1:A" & Последняя_заполненная_строка_в_столбце_A).Value = UCase("пп")

    Columns("A:A").Select
    'сортировка выделенного от А до Я, если нужно от Я до А, тогда Order1:=xlDescending                 
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal

Dim HelloRange As Range
Set HelloRange = Range("A1:A" & 111)
HelloRange = СТРОЧН

i = 1 'это строки
While Cells(i, 1) <> ""
Cells(i, 1) = UCase(Cells(i, 1))
i = i + 1
Wend

' Сочетание клавиш: Ctrl+s
Static intWay As Integer
intWay = intWay + 1
    Select Case intWay Mod 3
    Case 1: Selection = UCase(Selection)
    Case 2: Selection = LCase(Selection)
    Case 0: Selection = StrConv(Selection, vbProperCase)
    End Select