استخدام Lookup في VBA

[لعيونك]

السلام عليكم ورحمة الله وبركاته

لدي خلية أريد نقل محتواها إلى عمود آخر عندما يتطابق نتيجة Lookup مع معلومات الأعمدة الأخرى

هل أستطيع استخدام الكود التالي:

Sub Test()
    Dim x
    On Error Resume Next
    x = WorksheetFunction.Lookup(Range(2), Range("A1:A5"), Range("A1:A5"))
    If Err = 0 Then
        MsgBox x
    Else
        MsgBox "Not found"
        Err.Clear
    End If
    On Error GoTo 0
End Sub

 

الاختلاف لدي أن دالة Lookup بهذا الشكل

=LOOKUP(2,1/($F:$F=$G$6),$D:$D)

وهذا لأني أريد تحصيل آخر نتيجة مطابقة وتجاهل ما قبل

رحم الله والديكم ووالدينا والمسلمين أجمعين

مرفق الملف

SEC_V3.xlsm