Zu kompliziert für mich

Ein HALLO an alle in diesem Forum
Ich habe für unsern Sportverein eine Tabelle mit Daten erstellt, hier sollen 50 Zellen, nacheinander, eine besimmte Zahl eingegeben werden.
Jede Zahl passt für ein bestimmes Gewässer (1500) dieser Text soll in eine andere Zelle geschrieben werden.
Mit der ersten Abfrage klappt alles wunderbar, aber dann haperts mit der zweiten eingabe.
Wenn ich es so mache dann würde im Worksheet 50 Einträge mal 1500 Antworten stehen, geht das überhaupt.
Ich hoffe es gibt einen anderen Weg.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ZahlAusZelleB1 = Range("B1").Value 'Diese Abfrage auf weitere 50 Zellen
Select Case ZahlAusZelleB1
Case 1421001: Range("C6").Value = "Alter Kanal"
Case 1421002: Range("C6").Value = "Neuer Kanal"
Case 1421003: Range("C6").Value = "Heidesee"
Case 1421004: Range("C6").Value = "Angersdorfer Teich"
'Hier würden noch 1500 Gewässer stehen
Case Else
Range("C6").Value = "Keine Gewässernummer"
End Select
 
ZahlAusZelleD1 = Range("D1").Value
Select Case ZahlAusZelleD1
Case 1421001: Range("E6").Value = "Alter Kanal"
Case 1421002: Range("e6").Value = "Neuer Kanal"
Case 1421003: Range("e6").Value = "Heidesee"
Case 1421004: Range("e6").Value = "Angersdorfer Teich"
'Hier würden noch 1500 Gewässer stehen
Case Else
Range("e6").Value = "Keine Gewässernummer"
End Select

ZahlAusZelleF1 = Range("F1").Value
Select Case ZahlAusZelleF1
Case 1421001: Range("G6").Value = "Alter Kanal"
Case 1421002: Range("G6").Value = "Neuer Kanal"
Case 1421003: Range("G6").Value = "Heidesee"
Case 1421004: Range("G6").Value = "Angersdorfer Teich"
'Hier würden noch 1500 Gewässer stehen
Case Else
Range("G6").Value = "Keine Gewässernummer"
End Select
End Sub