В excel сравнить столбцы и записать совпадения в другой столбец

Dim lLastRowA As Long
    Dim lLastRowC As Long
    Dim i As Long
    Dim rFind As Excel.Range
    
        lLastRowA = Cells(Rows.Count, "A").End(xlUp).Row
    
       lLastRowC = Cells(Rows.Count, "C").End(xlUp).Row ' + 1
    
        Application.ScreenUpdating = False
    
        For i = 2 To lLastRowA Step 1
           
               Set rFind = Columns("B").Find(What:=Cells(i, "A").Text, LookIn:=xlValues, _
            LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False)
            
        'Если есть результат поиска (т.е. есть совпадение),
        'то записываем данные из столбца A в свободную строку столбца C.
        If Not rFind Is Nothing Then
            Cells(lLastRowC, "C").Value = Cells(i, "A")
                       
            'Записываем в переменную lLastRowC номер строки,
            'в которую нужно вставить следующие данные.
            lLastRowC = lLastRowC + 1
            
                    
        End If
            
    Next i
    
    
    'Включение обновления монитора.
    Application.ScreenUpdating = True
End Sub

If Not rFind Is Nothing Then
            Cells(lLastRowC, "C").Value = Cells(i, "A") & " " & Cells(i, "D")

Cells(lLastRowC, "C").Value = Cells(i, "A") 
Cells(lLastRowC, "E").Value = Cells(i, "D")