Pasa por dos columnas en una hoja, encuentra la fila única correspondiente en otra hoja y devuelve el valor en la tercera columna

Tengo las columnas A y B en una hoja ("Referencia") que contiene ciertos criterios. Quiero que mi macro recorra estos criterios, examine las columnas A y B en otra hoja ("Páginas"), busque la fila única correspondiente y devuelva el valor en la tercera columna de esa hoja si no está en blanco.

Debajo está lo que he intentado hasta ahora, pero no devuelve ningún valor:

For Each i In sheetrng For Each j In proprng Dim x As Long, LR As Long, Flag As Boolean LR = Range("A" & Rows.Count).End(xlUp).Row For x = 3 To LR If Range("A" & x) = "Theo Caliber" And Range("B" & x) = i And Range("C" & x) = j And Not IsEmpty(Range("D" & x)) Then Flag = True Exit For End If Next x Dim y As Integer y = Rows(2).Find(what:="Total Marketing", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False).Column Dim z As Variant Set z = Cells(x, y) ThisWorkbook.Activate Sheets("Total Rated").Range("B67").Value = 6 Sheets("Total Rated").ExportAsFixedFormat Type:=xlTypePDF, _ FileName:="C:\Users\merqueueni\Desktop\2015\By Department\" & z & ".pdf", _ OpenAfterPublish:=False Next j Next i 

¿Alguna buena alma que sepa lo que estoy haciendo mal?

¡Gracias!