Есть 2 обьедененых столбца, нужно убрать пробелы из каждой строчки

[NewStudent07]

Подскажите, пожалуйста, как можно решить такую задачу.
У меня есть на листе Excel таблица, в которой 3-й и 4-й столбцы обьединены, и в каждой строке перед текстом есть пробелы, их нужно убрать при помощи VBA.
Я попробовала написать следуюющий макрос, но он, к сожалению, не работает((
Помогите подправить мой макрос или здесь нужен другой??
Всем заранее спасибо за ответы!!!
Sub Macros_1()
Dim i As Long
i = 0
Do While Cells(i, 3 & 4) <> 0
LTrim (Cells(i, 3 & 4))
i = i + 1
Loop
End Sub

[Скрипт]

Sub Macros_1()

    Dim i As Long
    
    'i = 1, т.к. нумерация строк на Excel-листе начинается с "1".
    i = 1
    
    'Если столбцы 3 и 4 объединены, то столбца 4 не будет.
    'Value - указываю, т.к. если просто указать "Cells(i, 3)",
        'то программа "Excel" будет сама определять, что коду нужно передать.
        'Лучше указывать, что мы имеем ввиду. Так и код читать легче.
    Do While Cells(i, 3).Value <> 0
        Cells(i, 3).Value = LTrim(Cells(i, 3).Value)
        i = i + 1
    Loop
    
End Sub

[NewStudent07]

Спс) за Ответ!
Но тут еще есть 1 загвоздка в первых строках и с названиями груп обьединены 2-я, 3-я и 4-я колонки. Таблицу вложила. Посмотрите, плиз.
А файл нужно оставить в таком же виде, только убрать эти пробелы, потому, что он подвязян в таком виде к базе данных.

[Скрипт]

Sub Macros_1()

    Dim i As Long
    
    i = 7
    
    'Если в ячейке находится текст, а не число, то нужно вот так писать:
        '<> ""
    Do While Cells(i, 2).Value <> "" Or _
            Cells(i, 3).Value <> "" Or _
            Cells(i, 4).Value <> ""
            
        Cells(i, 2).Value = LTrim(Cells(i, 2).Value)
        Cells(i, 3).Value = LTrim(Cells(i, 3).Value)
        Cells(i, 4).Value = LTrim(Cells(i, 4).Value)
        
        i = i + 1
        
    Loop
    
End Sub

[NewStudent07]

Все отлично работает!!
Огромное спасибо!!!