Zamiana wartości z danego przedziału na tekst

Witam,
Mam tabelę i niej kolumnę z zyskiem, musze liczby z danego przedziału zamienić na tekst, np. mam zysk w przedzieła odd 5000-12000 i chcę aby mi makro zamieniło w tej kolumnie ten przedział na tekst '5tys-12tys'.
Podpowie ktos jakie makro powinnam zastosować? bo mi gdzieś nie wychodzi nic konkretnego

Ile tych przedziałów?

Mam zyski od kwoty 5000-30000.
I musze dla odpowiednich przedziałów zmienić nazwę:
czyli jeżeli mam przedziały:
5000-12000 to zmieniam na nazwę 5-12tys
13000-20000 to zmieniam nazwę na 13-20 tys
210000-30000 to zmieniam nazwę Obroty są na zadawalającym poziomie
jeśli mam zysk większy niż 30 000 dla napojów to wpisuje "świetne wyniki"

Ale masz zysk zapisany tak:
5000-12000
czy tak:
5123
?

EDIT: to tego nie potrzeba makra, dla 4 przedziałów można użyć rformuły. Excel PL, czy ENG?

Edit: rozumiem ze łatwo to w Excelu mozna zdobc ale niestety ja muse za pomoca makra ale nie wychodzi nic a nic...

Mam takie zyski i w tej konkretnej kolumnie musze je za pomocą VBA zamienić na tekst. Ma zamienić po przedziałach -zmiana wartości zysku na jedna z poniższych wartości:
"5tys-12tys" jeżeli zysk jest z tego przedziału 50000-12000
"13-20-tys" jeżeli zysk jest z tego przedziału 13000-20000
"Obroty są na zadawalającym poziomie" jeżeli zysk jest z tego przedziału 21000-30000
"Świetne wyniki" jeśli zysk jest większy niż 30 000 dla napojów

Zysk kategoria
5000 Pieczywo
5500 Napoje
6000 Wędliny
6500 Pieczywo
7000 Napoje
7500 Wędliny
8000 Pieczywo
8500 Napoje
9000 Wędliny
9500 Pieczywo
10000 Napoje
10500 Wędliny
11000 Pieczywo
11500 Napoje
12000 Wędliny
12500 Pieczywo
13000 Napoje
13500 Wędliny
14000 Pieczywo
14500 Napoje
15000 Wędliny
15500 Pieczywo
16000 Napoje
16500 Wędliny
17000 Pieczywo
17500 Napoje
18000 Wędliny
18500 Pieczywo
19000 Napoje
19500 Wędliny
20000 Pieczywo
20500 Napoje
21000 Wędliny
21500 Pieczywo
22000 Napoje
22500 Wędliny
23000 Pieczywo
23500 Napoje
24000 Wędliny
24500 Pieczywo
25000 Napoje
25500 Wędliny
26000 Pieczywo
26500 Napoje
27000 Wędliny
27500 Pieczywo
28000 Napoje
28500 Wędliny
29000 Pieczywo
29500 Napoje
30000 Wędliny
30500 Pieczywo
31000 Napoje
31500 Wędliny
32000 Pieczywo
32500 Napoje
33000 Wędliny
33500 Pieczywo
34000 Napoje
34500 Wędliny
35000 Pieczywo
35500 Napoje
36000 Wędliny
36500 Pieczywo
37000 Napoje
37500 Wędliny
38000 Pieczywo
38500 Napoje
39000 Wędliny
39500 Pieczywo
40000 Napoje
40500 Wędliny
41000 Pieczywo
41500 Napoje
42000 Wędliny
42500 Pieczywo
43000 Napoje

Dim i&, v&, nv$
Dim k As Range


For i = 2 To 78
    Set k = Cells(i, 1)
    
    v = k.Value
    Select Case v
        Case 5000 To 12000
            nv = "5tys-12tys"
        Case 13000 To 20000
            nv = "13-20-tys"
        Case 21000 To 30000
            nv = "Obroty są na zadawalającym poziomie"
        Case Is > 30000
            nv = "Świetne wyniki"
        Case Else
            nv = v
    End Select
    
    k.Value = nv

Next

Działa :)
Dziękuję :)