Перенести значения из одной таблицы в другую, если они соответствуют условиям

Public Sub Inp()
Worksheets("Table").Select
Application.ScreenUpdating = True
Dim Cup As String
LR = Cells(Rows.Count, 20).End(xlUp).Row
For I = 2 To LR 'левая таблица
    For Z = 2 To LR 'правая таблица
        If InStr(1, Cells(I, 2), Cells(Z, 21), 1) > 0 Then 'линия
            If InStr(1, Cells(I, 3), Cells(Z, 23), 1) > 0 Then 'первое словосочетание
                If InStr(1, Cells(I, 4), Cells(Z, 24), 1) > 0 Then 'второе словосочетание
                    For x = 5 To 19 'условие
                        If InStr(1, Cells(1, x), Cells(Z, 22), 1) > 0 Then 'условие
                        Sheets("Table").Activate
                        'ActiveSheet.Cells(l, x) = Range("Y" + CStr(Z))
                        ActiveSheet.Cells(CStr(l), CStr(x)) = Range("Y" + CStr(Z))
                        End If
                    Next
                End If
            End If
        End If
    Next
Next
End Sub

Public Sub Inp()
LR = Cells(Rows.Count, 21).End(xlUp).Row
MsgBox (LR)
For i = 2 To LR 'ëåâàß òàáëèöà
    For Z = 2 To LR 'ïðàâàß òàáëèöà
        If InStr(1, Cells(i, 2), Cells(Z, 21), 1) > 0 Then 'ëèíèß
            If InStr(1, Cells(i, 3), Cells(Z, 23), 1) > 0 Then 'çàêîí÷èëè
                If InStr(1, Cells(i, 4), Cells(Z, 24), 1) > 0 Then 'íà÷àëè
                    For x = 5 To 19 'óñëîâèå
                        If InStr(1, Cells(1, x), Cells(Z, 22), 1) > 0 Then 'óñëîâèå
                        Cells(i, x).Value = Cells(Z, 25).Value
                        End If
                    Next
                End If
            End If
        End If
    Next
Next
End Sub