Копирование данных с листа1 на Лист2 с Пробелами - VBA

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

Помогите столкнулся с такой проблемой, с пробелами и т.д На листе1 в B4:B имеется фирмы На листе1 в C4:C имеется Авто На листе1 в D4: имеется Поломка Нужно на лист2 Скопировать но при этом на B4 где ООО РМО "ПЕРВЫЙ ПРОСПЕКТ" = 1 OOO СК "Пятая колонна-Ж" (ранее ООО НМСК "Русский север") = 2 OOO СК "Городовой" (ранее ООО НМСК "Городовой метр") = 3 Где пусто = 0 (но при этом так чтобы если заполнена последняя ячейки Авто C19 Скопировать но при этом на C4 где Опель Инсигниа №25 = 89 Опель Кадет №96 = 101 Опель Фронтера №695 5д = 104 Мазда 223 №78 - 99 Шевролет Каптива 3.2 №59 = 45 Скопировать но при этом на D4 где T40.6-Замена аккумулятора = T40.6 I20.9-Замена саленблока = I20.9 T78.4-Покраска кузова = T78.4 I200.9-Ремонт ходовой = I200.9

Решение задачи: «Копирование данных с листа1 на Лист2 с Пробелами»

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

                            Option Compare Text
Sub Копирование_с_присвоением_кодов()
    Dim i&, j&, LastRow&, T
    With Sheets(1)
        With .UsedRange
            LastRow = .Rows.Count + .Row - 1
        End With
        For i = 4 To LastRow
            For j = 2 To 4
                T = Sheets(1).Cells(i, j)
                Select Case Trim(T)
                    Case "ООО РМО ""ПЕРВЫЙ ПРОСПЕКТ""": T = 1
                    Case "OOO СК ""Пятая колонна-Ж"" (ранее ООО НМСК ""Русский север"")": T = 2
                    Case "OOO СК ""Городовой"" (ранее ООО НМСК ""Городовой метр"")": T = 3
                    Case "Опель Инсигниа №25": T = 89
                    Case "Опель Кадет №96": T = 101
                    Case "Опель Фронтера №695 5д": T = 104
                    Case "Мазда 223 №78": T = 99
                    Case "Шевролет Каптива 3.2 №59": T = 45
                    Case "Опель Антара №69": T = 125
                    Case "I20.0-Общая диагностика": T = "I20.0"
                    Case "I20.9-Замена саленблока": T = "I20.9"
                    Case "T40.6-Замена аккумулятора": T = "T40.6"
                    Case "T51-Чистка салона": T = "T51"
                    Case "T78.4-Покраска кузова": T = "T78.4"
                    Case "I200.9-Ремонт ходовой": T = "I200.9"
                    Case "", "-": If j = 2 Then T = 0 Else T = ""
                End Select
                Sheets(2).Cells(i, j) = T
            Next j
        Next i
    End With
End Sub
                        