Having problem with inserting inequality in SUMIF

I have this SUMIF function with the criteria defined as Crt.

Sub Test()
    Dim Crt
        Crt = "1.5"
        ActiveCell.FormulaR1C1 = _
        "=SUMIF(R2C23:R39C23," & Crt & ",R2C6:R39C6)"
End Sub

It works when Crt is a value(eg. Crt="1.5"), but when I try to change it to inequality (eg. Crt= ">=1.5"), Run time error '1004' occurs.

I'd appreciate any help!