Using RANK function in VBA code

I'm getting an error stating 'Unable to get Rank function...etc'

Is my syntax incorrect? My variable 'howmany' stores a value of 146, so it shouldn't be resulting from that. I'm stumped here.

For Each cell In Range("K4", Range("K" & Rows.Count).End(xlUp))
            cell.Formula = Application.WorksheetFunction.Rank(Range("J" & cell.Row), Range("J4:J" & howmany))
            If cell.Offset(, -1).Value <= 0.6 Then
                With cell.Interior
                    .Pattern = xlSolid
                    .PatternThemeColor = xlThemeColorAccent6
                    .ThemeColor = xlThemeColorDark1
                    .TintAndShade = -0.249977111117893
                    .PatternTintAndShade = 0.599993896298105
                End With
            End If
        Next

Book2.xlsx Here is the worksheet I am working with (sans VBA code since the full file is far too big to post)

No, that didn't fix it unfortunately. Is there a different syntax in which i can write this?