Cells(m, 8).Value = Application.XLookup(Range("h" & r), Range("DC"), Range("DFF"), Range("DG5G22"))

لا لكن لا تعطى اى نتيجة ولا حتى رسالة خاطئة

 
Cells(m, 8).Formula = "=XLOOKUP(DC13,$DF$5:$DF$22,$DG$5:$DG$22)"

Sub dd()
Dim r As Long
    Dim lr As Long
    Dim m As Long
    lr = Cells(Rows.Count, "H").End(xlUp).Row
    For r = 5 To lr Step 12
        Cells(r, 8).Resize(9).Formula = _
       "=XLOOKUP(DC" & r & ",$DF$5:$DF$22,$DG$5:$DG$22)"
     Next r
End Sub