Makro til indsættelse af argumenter mellem bestemte intervaller

Hej!
Jeg er igang med at lave en makro, som i en postnummer tabel skal kunne indsætte en "rute" indenfor et porstnr. interval. Eksempelvis skal der ved postnr. 1000 til 1250 stå rure 566, og fra 1251 til 2000 stå rute 127.

Jeg har forsøget med en If rutine, men denne kan åbenbart ikke udføre en rutine som "between".  Min makro er indsat herunder:

------------------

Sub løkke2()

Dim itæller, ponr1, ponr2, rute As Integer

ponr1 = Application.InputBox("Skriv fra postnr", , , , , , , 1)
ponr2 = Application.InputBox("Skriv til postnr", , , , , , , 1)
rute = Application.InputBox("Angiv Rutenr.", , , , , , , 1)

For itæller = 1 To 10
If Range("A" & itæller).Value = ponr1 Or Range("A" & itæller).Value <= ponr2 Then
Range("B" & itæller).Value = rute
End If
Next

End Sub

---------------

Jeg skal måske benytte en Case rutine, men denne kan jeg slet ikke få til at fungere.  PLEASE - help me.