Текст в столбцы с пустыми ячейками

Question

Я видел сообщение J.Con о тексте в столбце l oop ( Текст в столбцы для нескольких столбцов - Excel VBA ). Однако это работает, только если в первой строке есть вся информация, как на первом рисунке:

Так что я изменил код, чтобы он работал, как на втором рисунке. Этот работает своего рода. Только я хочу, чтобы он работал как на третьих рисунках, что он находит последний столбец, где ячейка не пуста, поэтому в этом случае ячейка ("C3")

Код, который я использую:

    Dim LastRow As Long
    LastRow = Cells.Find(What:="*", _
                        After:=Range("A1"), _
                        LookAt:=xlPart, _
                        LookIn:=xlFormulas, _
                        SearchOrder:=xlByRows, _
                        searchDirection:=xlPrevious, _
                        MatchCase:=False).Column

    Dim LastColumn As Long
    LastColumn = Cells.Find(What:="*", _
                        After:=Range("A1"), _
                        LookAt:=xlPart, _
                        LookIn:=xlFormulas, _
                        SearchOrder:=xlByColumns, _
                        searchDirection:=xlPrevious, _
                        MatchCase:=False).Column


'Loops Text to columns
    Dim StartingRow, StartingColumn As Long
    StartingRow = 1

    For StartingColumn = 1 To LastColumn
        Range(Cells(StartingRow, StartingColumn), Cells(LastRow, StartingColumn)).Select

        Selection.TextToColumns , DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True

    Next