ændring af værdi i range

Tallene 8011 – 8016 ændres til 8001 – 8006. 
Tallene 8020 – 802145 ændres til 9000 – 9145.
Tallene 803000 – 803024 ændres til 10000 – 10024.

Dvs i den første er der 6 tal
i den anden er der 146 tal
i den tredje er der 25 tal

Hvordan laver jeg en løkke/tæller så den selv ændres. Nedenfor er den kode jeg selv har genereret indtil videre, ved godt at det kan gøres mindre kodemæssigt, men hvordan får jeg en tæller/løkke ind, så jeg ikke behøver skrive det for hver linie?

Sub Change_Database()




Dim data1 As Range, data2 As Range, data3 As Range, data4 As Range, data5 As Range, data6 As Range
Range(Range("B1015").Offset(0, 0), Range("B1015").End(xlDown)).Select

Do
    For Each data1 In Selection
        If data1.Value = "8011" Then data1.Value = "8001"
    Next
   
    For Each data2 In Selection
        If data2.Value = "8012" Then data2.Value = "8002"
    Next
   
    For Each data3 In Selection
        If data3.Value = "8013" Then data3.Value = "8003"
    Next
   
    For Each data4 In Selection
        If data4.Value = "8014" Then data4.Value = "8004"
    Next
   
    For Each data5 In Selection
        If data5.Value = "8015" Then data5.Value = "8005"
    Next
   
    For Each data6 In Selection
        If data6.Value = "8016" Then data6.Value = "8006"
    Next
   
    b = 1
Loop Until b = 1

End Sub