Sub RowColSmth()
    ActiveSheet.Rows.RowHeight = 15
    ActiveSheet.Columns.AutoFit
End Sub

 wks.Cells(2, 5).Select ' идет в ячейку Е2     

Sub NewExcelBookCreating()
    Dim appExcel As Object
    Dim wbk As Excel.workbook, StrFilename As String
    Dim wks As Excel.worksheet
    
    StrFilename = CurrentProject.Path & "\ordercover.xlsx"
    Set appExcel = CreateObject("Excel.Application")
    If Dir(StrFilename) <> "" Then
        Set wbk = appExcel.Workbooks.Open(StrFilename)
    Else
        Set wbk = appExcel.Workbooks.Add
        wbk.saveas StrFilename
    End If
    Set wks = appExcel.worksheets(1)
    appExcel.Visible = True
    
        
    'wks.Range("A1").CopyFromRecordset rst ' не работает, выводим значения RecordSeta в цикле
    Do While Not rst.EOF
        For j = 1 To FieldsCount
            wks.Cells(i + 1, j).Value = rst.Fields(j - 1)
        Next
        i = i + 1
        rst.MoveNext
    Loop

    wks.Rows(1).RowHeight = 60 ' высота 1 строки
    wks.Rows("1:1").VerticalAlignment = xlCenter ' центрирование
    wks.Rows("1:1").HorizontalAlignment = xlCenter ' центрирование
    wks.Rows("1:1").WrapText = True ' перенос
    wks.Rows("1:1").AutoFilter ' автофильтро
        
    
    wks.Cells(2, 5).Select ' идет в ячейку Е2
    
    If Not ActiveWindow Is Nothing Then ' как обойтись без этой затычки?
        With ActiveWindow ' фиксируем строку-столбец
            .FreezePanes = False
            .FreezePanes = True
        End With
    End If
    
    'Set wks = Nothing
    'wbk.Save
    'wbk.Close
    'Set wbk = Nothing
    'appExcel.Quit
    'Set appExcel = Nothing
    
End Sub

  If Not ActiveWindow Is Nothing Then ' как обойтись без этой затычки?
        With ActiveWindow ' фиксируем строку-столбец
            .FreezePanes = False
            .FreezePanes = True
        End With
    End If

Option Explicit
Dim mcApp As clsAppEvents

Sub StartIt()
    StopIt
    Set mcApp = New clsAppEvents
    Set mcApp.App = Application
    mcApp.SetPointers ActiveSheet, ActiveCell
End Sub

Sub StopIt()
    Set mcApp = Nothing
End Sub

Value counter
0 -> 38
1 -> 27
2 -> 49
3 -> 40
4 -> 55
5 -> 33
6 -> 70

For each MyCell in Selection 'для каждой ячейки в выделении
...инструкции, что с ячейкой сотворить
Next