Do while BUSCAR E TRAANSFERIR

Ola pessoal.

estou com a seguinte dificuldade:

tenho uma pasta de trabalho com varias Sheets (planilhas, abas).

estou querendo fazer um busca na panilha "retorno de unidade" e quando encontrar o valor igual que esta na planilha "Monitoramento". quero copiar e colar na planilha Monitoramento.

Planilha Monitoramento

os Valores de busca se encontram na coluna B a partir do range B8

OS valores DE COMPARACAO SE ENCONTRAM NA PLANILHA RETORNO DE UNIDADE

na coluna c a partir da range C3

e quero transferir os dados quando iguais da coluna D da planilha Retorno de Unidade para a Planilha Monitoramento coluna C8 em diante....

escrevi o seguinte codigo...

Sub retornomonitoramento()
            Application.ScreenUpdating = False
            Application.DisplayAlerts = False
Dim w As Worksheet
Dim w2 As Worksheet
Dim Nf As Long
   Set w = Sheets("Monitoramento")
   Set w2 = Sheets("Retorno Unidades")
'Nf = w.Range("B")
w2.Select
w2.Range("c3").Select
'===========================================================

Do While ActiveCell.Value <> ""

    If ActiveCell = Nf Then
    ActiveCell.Offset(0, 1).Value = w.Range("c8").Value
   
   
   
           End If
       ActiveCell.Offset(1, 0).Select
       
   Loop
w.Select
w.Range("A1").Select

'===================================================================



MsgBox " Retorno atualizado"

            Application.ScreenUpdating = True
            Application.DisplayAlerts = True

End Sub


QUEM PUDER AJUDAR AGRADEÇO