[aESThete]

SS1001
Попробуйте вот так:

Код:

Sub ShowFirstEmptyColumn()
    For C = Columns.Count To 1 Step -1 'перебираем столбцы от последнего назад
        Cells(1, C).End(xlDown).Select 'выбираем последнюю занятую
        If Selection.Row < Rows.Count Then 'если это не последняя строка (столбец не пустой)
            Exit For 'выйти из цикла
        End If
    Next
    MsgBox C + 1
End Sub

Может есть готовый метод или свойство, но я не нашел.