VBA Sumifs under two conditions

[Palucci]

I want to create a function that will sum me up for CRD_EKSP_PIER_DC_FIN = "CRD_EKSP_PIER_DC_FIN" CRD_KOR_DC_FIN = "CRD_KOR_DC_FIN" When two conditions are met, where DIFFRENT> 365 and CRD_RWG <1.5 However, my macro shows me a result of 0. Where do I go wrong ?

Set wbMe = ActiveWorkbook
CRD_EKSP_PIER_DC_FIN = "CRD_EKSP_PIER_DC_FIN"
CRD_KOR_DC_FIN = "CRD_KOR_DC_FIN"
DIFFRENT = "DIFFRENT"
CRD_RWG = "CRD_RWG"
With wbMe.Sheets("NPE")
If .AutoFilterMode Then .AutoFilterMode = False
    LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    LastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
    Set rTable = .Range(.Cells(1, 1), .Cells(LastRow, LastCol))
    Set rCol = rTable.Rows(1).Find(What:=DIFFRENT, LookIn:=xlValues, LookAt:=xlWhole)
    Set rCol1 = rTable.Rows(1).Find(What:=CRD_EKSP_PIER_DC_FIN, LookIn:=xlValues, LookAt:=xlWhole)
    Set rCol2 = rTable.Rows(1).Find(What:=CRD_KOR_DC_FIN, LookIn:=xlValues, LookAt:=xlWhole)
    Set rCol3 = rTable.Rows(1).Find(What:=CRD_RWG, LookIn:=xlValues, LookAt:=xlWhole)
    If Not rCol Is Nothing Then
        .Range("T39").Value = Application.WorksheetFunction.SumIfs(rTable.Columns(rCol.Column), rTable.Columns(rCol.Column), ">365", rTable.Columns(rCol3.Column), "<1.5", rTable.Columns(rCol1.Column), "CRD_EKSP_PIER_DC_FIN", rTable.Columns(rCol2.Column), "CRD_KOR_DC_FIN")
    End If
End With

cross post : VBA Sumifs under two conditions

 

[Fluff]

Cross posted again without adding all links.