Sub NewMenu100()

On Error Resume Next

Application.CommandBars.Add("Отчет ТОП 100").Delete
With Application.CommandBars.Add("Отчет ТОП 100", , False, True)
    With .Controls.Add
    .Caption = "ТОП 100"
    .FaceId = 69
    .Style = 3
    .TooltipText = "Формирование отчета ТОП 100"
    .OnAction = "Start100"
    End With
.Visible = True
End With

End Sub

rs.Open "SELECT * FROM Itog WHERE " & st1 & st3 & st4 & st5 & st6 & st7 & st2 & " ORDER BY 1", cn, adOpenStatic, adLockReadOnly
   Worksheets(Jnxtn gj ghjtrnfv").Range("B6").CopyFromRecordset rs
rs.Close

'Соединение с базой и получение данных в Combobx-ы'
cn.Open    
sSQL = "Select distinct id1 From Itog Where id1 IS NOT NULL Order by 1"    
Set rs = cn.Execute(sSQL)    
If Not cn.State = 1 Then Exit Sub    
a = rs.GetRows   
 Me.ComboBox1.List = Application.Index(a, 1, 0)
rs.Close:     
cn.Close
'-------------------
cn.Open    
sSQL = "Select distinct id2 FROM Itog ORDER BY 1"    
Set rs = cn.Execute(sSQL)
    If Not cn.State = 1 Then Exit Sub
    a = rs.GetRows
    Me.ComboBox2.List = Application.Index(a, 1, 0)
rs.Close:
cn.Close

СПОСОБ 4:
Определение последней строки и столбца, а так же адрес ячейки методом Find    Dim rF As Range
    Dim lLastRow As Long, lLastCol As Long
    'ищем последнюю ячейку на листе, в которой хранится хоть какое-то значение
    Set rF = ActiveSheet.UsedRange.Find("*", , xlValues, xlWhole, xlPrevious)
    If Not rF Is Nothing Then
        lLastRow = rF.Row    'последняя заполненная строка
        lLastCol = rF.Column 'последний заполненный столбец
        MsgBox rF.Address 'показываем сообщение с адресом последней ячейки
    Else
        'если ничего не нашлось - значит лист пустой
        'и можно назначить в качестве последних первую строку и столбец
        lLastRow = 1
        lLastCol = 1
    End If