Solved: Need help with VBA Vlook up Function (Run-time error '438' Object doesn't support this property or method)

I am using the following code to do a Vlook up and get Runtime error :438 in the If Not (Application.WorksheetFunction.IsEmpty(Application.VLookup(Application.WorksheetFunction.CONCATENATE(.Range("D2").Value, .Range("N36").Value), Garantia_Reais_rng, 7, False))) Then Line code.Pardon my Bad coding, I am fairly new to VBA.

If Not IsEmpty(.Range("D2").Value) Or IsEmpty(.Range("N36").Value) Then
       If .Range("L36").Value = "Liquid Security" Then
           If Not (Application.WorksheetFunction.IsEmpty(Application.VLookup(Application.WorksheetFunction.CONCATENATE(.Range("D2").Value, .Range("N36").Value), Garantia_Liq_rng, 7, False))) Then
           .Range("Q36").Value = Application.WorksheetFunction.VLookup(Application.WorksheetFunction.CONCATENATE(.Range("D2").Value, .Range("N36").Value), Garantia_Liq_rng, 7, False)
           Else
           .Range("Q36").Value = 0
           End If
        Else
           If Not (Application.WorksheetFunction.IsEmpty(Application.VLookup(Application.WorksheetFunction.CONCATENATE(.Range("D2").Value, .Range("N36").Value), Garantia_Reais_rng, 7, False))) Then
           .Range("Q36").Value = Application.WorksheetFunction.VLookup(Application.WorksheetFunction.CONCATENATE(.Range("D2").Value, .Range("N36").Value), Garantia_Reais_rng, 7, False)
           Else
           .Range("Q36").Value = 0
           End If
        End If
        End If

Open in new window