Boa Tarde

Mais um problema- estou tentando criar um código para procurar e prencher valores.
cheguei ao seguinte código com informações da Internet - so que devido a minha falta de experiência não consegui sair disto.
o problema é o seguinte ele está fazendo a comparação correta mas não consegui fazer ele trazer o valor.

o código tem de fazer o Seguinte procurar o valor da coluna F a Partir da Linha 120 até a ultima linha na coluna D de uma 2º planilha da 4º linha até a ultima
se ele encontrar eu quero que ele copie o valor da coluna H da planilha 2 e cole na coluna I da planilha 1 e assim sucessivamente. são doze colunas que ele tem de fazer este procedimento cada uma corresponde a um mês.

Eu Sei que a maioria vai pensar "Procv" , sim daria Certo o problema é que esta planilha esta sempre semto modificada e seria bem mais facil modificar um código do que conferir um montão de células para verificar se a forma está correta.

Help!!!!

Sub fMain()
    Dim lng As Long

    Dim wks1 As Worksheet
    Dim wks2 As Worksheet

    Set wks1 = ThisWorkbook.Sheets("BALANÇO E DRE ACUMULADO MENSAL")
    Set wks2 = ThisWorkbook.Sheets("DRE")

    With wks1
        For lng = 120 To .Cells(.Rows.Count, "F").End(xlUp).Row
            If Not IsError(Application.Match _
            (.Cells(lng, "F"), wks2.Columns("D"), 0)) Then
                
                wks1.Cells(lng, "I") = wks2.Columns("H")
                wks1.Cells(lng, "O") = wks2.Columns("I")
                wks1.Cells(lng, "U") = wks2.Columns("J")
                wks1.Cells(lng, "AA") = wks2.Columns("K")
                wks1.Cells(lng, "AG") = wks2.Columns("L")
                wks1.Cells(lng, "AM") = wks2.Columns("M")
                wks1.Cells(lng, "CJ") = wks2.Columns("N")
                wks1.Cells(lng, "CP") = wks2.Columns("O")
                wks1.Cells(lng, "CV") = wks2.Columns("P")
                wks1.Cells(lng, "DB") = wks2.Columns("Q")
                wks1.Cells(lng, "DH") = wks2.Columns("R")
                wks1.Cells(lng, "DN") = wks2.Columns("S")

            
            Else
        
            End If
        Next lng
    End With
End Sub