Удалить текст после первого определённого символа - VBA

Формулировка задачи:

Добрый день! Напишите пожалуйста макрос который удаляет текст после первого определённого символа - точка с запятой (, Ячейки с текстом находятся в столбце D (Их около 50 тыс.). Пример файла исходник: (D1) Мебель;Красная;Жёлтая;Пластиковая;Деревянная (D2) Мебель;Красная;Жёлтая;Пластиковая;БУ (D3) Мебель;Красная;Жёлтая;Пластиковая;Новая Пример файла необходимый результат: (D1) Мебель (D2) Мебель (D3) Мебель Пример файла во вложение.

Решение задачи: «Удалить текст после первого определённого символа»

textual
                            Листинг программы 
                        

                            Sub pr()
    Dim i&    
    a = ActiveSheet.UsedRange
    For i = 1 To UBound(a)
        a(i, 1) = Split(a(i, 1), ";")(0)
    Next
    Cells(1, 4).Resize(UBound(a)) = a
End Sub
                        