Como hacer para que de acuerdo a un código que tenia valores fijos, ahora cambie esa parte a unos valores que están en un rango

De acuerdo a unos valores que están predispuestos, ahora quiero que funcione igual como está pero que ahora es dependiendo de la tabla que muestro a continuación, que dependiendo los valores de la tabla así cambie los rangos en mi table el código lea solo con respecto a esta tabla

anteriormente tenia el siguiente codigo para esa funcion 

Sub formato()

Dim i As Long, valor As Double

Let UltimaFila = Cells(Rows.Count, 40).End(xlUp).Row

For i = 5 To UltimaFila

valor = Cells(i, 40).Value

Select Case valor
Case 0
Cells(i, 41).Value = ""
Case 1 To 14999
Cells(i, 41).Value = " NO SPLIT "
Case 15000 To 24999
Cells(i, 41).Value = "SPLIT GOA LEVEL 7"
Case 25000 To 99999
Cells(i, 41).Value = "SPLIT GOA LEVEL 6"
Case 100000 To 249999
Cells(i, 41).Value = "SPLIT GOA LEVEL 5"
Case 250000 To 999999
Cells(i, 41).Value = "SPLIT GOA LEVEL 4"
Case 1000000 To 1999999
Cells(i, 41).Value = "SPLIT GOA LEVEL 2-3"
Case Is >= 2000000
Cells(i, 41).Value = "SPLIT GOA LEVEL 1"
End Select
Next i

End Sub

Pero ahora requiero que con respecto a esa pestaña me arroje el comment, ya que donde se ejecuta la macro es en la pestaña "CO01 Database".