Как оптимизировать код макроса, который смотрит на 2 рабочих листа

Проблема:

У меня есть 1 лист Excel с 2 вкладками. Вкладка 1 = Пакет поставки. Вкладка 2 = Шаги массового обновления.

1. Я хочу просмотреть все значения в столбце B на вкладке 2 одно за другим.
2. Когда я просматриваю каждую строку на вкладке 2, я буду выбирать и копировать значения в столбцах C и D на вкладке 2.
3. После выбора и копирования я хочу найти соответствующие значения столбца B на вкладке 2 в столбце G на вкладке 1.
4. Если совпадение найдено, я выберу столбец E на вкладке 1 (в строке, где было найдено совпадение) и вставлю туда значения, скопированные из вкладки 2.

Пока это код, который у меня есть, который работает. Однако искомые значения жестко запрограммированы. С ростом числа значений на вкладке 2 код сложно поддерживать. Я хотел бы оптимизировать его. Я погуглил несколько возможных решений. Но я продолжаю получать эти ошибки времени выполнения при объявлении или установке диапазона для двух листов. Вот мой код.

Private Sub btn_Updt_Steps_Click()
    Dim lastRow As Long
    With Sheets("Shipment Package")
    .Activate
        lastRow = .Range("G65000").End(xlUp).Row

    For i = 1 To lastRow
        If (InStr(1, .Range("G" & i).Value, "Code 001", vbTextCompare) > 0) Then
            Sheets("Mass Update Steps").Activate
            ActiveSheet.Range("C4:D4").Select
            Selection.Copy
            Sheets("Shipment Package").Activate
            .Range("E" & i).Select
            ActiveSheet.Paste

        ElseIf (InStr(1, .Range("G" & i).Value, "Code 002", vbTextCompare) > 0) Then
            Sheets("Mass Update Steps").Activate
            ActiveSheet.Range("C5:D5").Select
            Selection.Copy
            Sheets("Shipment Package").Activate
            .Range("E" & i).Select
            ActiveSheet.Paste

        ElseIf (InStr(1, .Range("G" & i).Value, "Code 003", vbTextCompare) > 0) Then
            Sheets("Mass Update Steps").Activate
            ActiveSheet.Range("C6:D6").Select
            Selection.Copy
            Sheets("Shipment Package").Activate
            .Range("E" & i).Select
            ActiveSheet.Paste

        End If

    Next

End With

NotFoundErr:
    Debug.Print "value not found"
End Sub

Решение:

Частная подписка btn_Updt_Steps_Click()

Dim i As Long
Dim j As Long
Dim Tab2ColC As String
Dim Tab2ColD As String
Dim Tab1ColE As String
Dim Tab1ColF As String

Tab1 = "Shipment Package"
Tab2 = "Mass Update Steps"

With Worksheets(Tab1)
     LastRowTab1 = .Cells(.Rows.Count, "G").End(xlUp).Row 'LastRowInColumn(2, Tab1)
End With

With Worksheets(Tab2)
     LastRowTab2 = .Cells(.Rows.Count, "B").End(xlUp).Row 'LastRowInColumn(2, Tab2)
End With


For i = 4 To LastRowTab2

    Tab2ColumnB = Trim(Sheets(Tab2).Range("B" & i).Value)
    Sheets(Tab2).Activate
    If Tab2ColumnB <> "" Then
        Tab2ColC = "C" & i
        Tab2ColD = "D" & i
        ActiveSheet.Range(Tab2ColC, Tab2ColD).Copy

        For j = 16 To LastRowTab1
            Tab1ColumnG = Trim(Sheets(Tab1).Range("G" & j).Value)

            If Tab1ColumnG = Tab2ColumnB Then
                Sheets(Tab1).Activate
                Tab1ColE = "E" & j
                Tab1ColF = "F" & j
                Sheets(Tab1).Range(Tab1ColE, Tab1ColF).Select
                ActiveSheet.Paste
            End If

        Next
    End If

Next

Конец сабвуфера