Visual Basic para Aplicaciones - macro Busqueda y copiar datos

Option Explicit

Sub buscar_guid_personas()

    Dim Fila_1 As Integer, Fila_2 As Integer

    ' ---&--- hacer el ciclo mientras en la hoja1 existan datos

    Sheets("Hoja1").Select

    Fila_1 = 2

    Do While Cells(Fila_1, 1) <> ""

        With Sheets("Hoja2")

            ' ---&--- hacer el ciclo mientras en la hoja2 existan datos

            Cells(Fila_1, 3).Value = "checar"

            Fila_2 = 2

            Do While .Cells(Fila_2, 1) <> ""

                ' --- checar si los ideventos y los nombres de ambas hojas sean iguales, =>

                '      pegar en hoja1 col3 el contenido de la hoja2 col3

                If Cells(Fila_1, 1).Value = .Cells(Fila_2, 1).Value And _

                   Cells(Fila_1, 2).Value = .Cells(Fila_2, 2).Value Then

                    Cells(Fila_1, 3).Value = .Cells(Fila_2, 3).Value

                    Exit Do

                 Else

                     ' --- comprar si es que los eventos son iguales y en en la hoja2 la col

                     '     nombre contiene "NO NOMBRE", "SE DESCONOCE", "SD", =>

                     '     escribir en la hoja1 col3 la letra "Z"

                     If Cells(Fila_1, 1).Value = .Cells(Fila_2, 1).Value And _

                       (.Cells(Fila_2, 2) Like "*NO NOMBRE*" Or _

                        .Cells(Fila_2, 2) Like "*SE DESCONOCE*" Or _

                        .Cells(Fila_2, 2) Like "*SD*") Then

                        Cells(Fila_1, 3).Value = "Z"

                        Exit Do

                     End If

                 End If

                 Fila_2 = Fila_2 + 1

             Loop

             Fila_1 = Fila_1 + 1

         End With

    Loop

    MsgBox "Fin"

End Sub