tiedon poiminta kahdella ehdolla toisesta taulukosta

Seuraava makro tekee haluamasi toiminnon. Oletuksena on, että taulkukot ovat saman työkirjan välilehdillä ja ettei ole otsikkorivejä. Makroa ajettaessa on ensimmäisen taulukon oltava aktiivisena.

Sub lisää()
        toinen = "Sheet2" ' toisen taulukon nimi
        With Sheets(toinen)
            r = 2
            Do
                rr = 1
                Do
                    If Cells(r, 1) = .Cells(rr, 1) And Cells(r, 2) = .Cells(rr, 2) Then
                        Cells(r, 5) = .Cells(rr, 3)
                    End If
                    rr = rr + 1
                    If .Cells(rr, 1) = "" Then Exit Do
                Loop
                r = r + 1
                If Cells(r, 1) = "" Then Exit Do
            Loop
        End With
End Sub