Populating "band" Based On Value In Another Column

I am trying to populate Column BB based on data in BA. Explanation: If BA2 is less than 1, BB2 should equal "00-01". This should run until BA is blank. Sample value in BA: 6.68.

I'll paste in my code which is causing a run time error 13 type mismatch error starting with the line in red below. I wonder if I am even close?

Dim m As Long
For m = 2 To Range("BA65536").End(xlUp).Row
Select Case Cells(m, 53).Value
Case Is < 1 'line where error starts
Cells(m, 54) = "00 - 01"
Case 1.1 To 2
Cells(m, 54) = "01 - 02"
Case 2.1 To 3
Cells(m, 54) = "02 - 03"
Case 3.1 To 4
Cells(m, 54) = "03 - 04"
Case 4.1 To 5
Cells(m, 54) = "04 - 05"
Case Else
Cells(m, 54) = ">5"
End Select
Next m