I realize it is not exactly what you wrote as I had to edit it. I am having the same issue. I am sure you can see what I need it to do. What is the issue?

Sub Sort()

    Dim varZip As Variant
    Dim arrStore() As String
    Dim StoreIndex As Long

    With Range("C2", Cells(Rows.Count, "C").End(xlUp))
        If .Row < 2 Then Exit Sub   'No data
        ReDim arrStore(1 To .Rows.Count)
        For Each varZip In .Value
            StoreIndex = StoreIndex + 1
            Select Case True
                Case varZip <= 55 And varZip.Offset(, 1) < 6
                     arrStore(StoreIndex) = "1"
                Case varZip <= 63 And varZip.Offset(, 1) = 6, 7
                     arrStore(StoreIndex) = "2"
                Case varZip = 55.1 To 500 And varZip.Offset(, 1) < 6
                     arrStore(StoreIndex) = "2"
                Case varZip <= 77 And varZip.Offset(, 1) = 8, 9
                     arrStore(StoreIndex) = "3"
                Case varZip = 63.1 To 500 And varZip.Offset(, 1) = 6, 7
                     arrStore(StoreIndex) = "3"
                Case varZip = 77.1 To 500 And varZip.Offset(, 1) = 8, 9
                     arrStore(StoreIndex) = "4"
                Case varZip = 77.1 To 111 And varZip.Offset(, 1) = 10, 11
                     arrStore(StoreIndex) = "4"
                 Case varZip <= 77 And varZip.Offset(, 1) = 10, 11
                     arrStore(StoreIndex) = "5"
                 Case varZip = 111.1 To 500 And varZip.Offset(, 1) = 10, 11
                     arrStore(StoreIndex) = "6"
                 Case varZip = 111.1 To 500 And varZip.Offset(, 1) = 12, 13, 14, 15, 16, 17, 18
                     arrStore(StoreIndex) = "6"
                 Case varZip <= 111.1 And varZip.Offset(, 1) = 12 To 18
                     arrStore(StoreIndex) = "7"
                Case ""
                    arrStore(StoreIndex) = ""
                Case Else
                    arrStore(StoreIndex) = "none"
            End Select
        Next varZip
    End With
    
   

    If StoreIndex > 0 Then Range("I2").Resize(StoreIndex).Value = Application.Transpose(arrStore)
   End Sub