Eingabebox für Zellbezug in Makro

Sub Tabelle_mit_Name_und_laufenderNR()
Dim WkSh    As Worksheet
Dim WkBk    As Workbook
Dim iLfdNr  As Integer
iLfdNr = InputBox("Bitte geben Sie die erste Nummer ein mit der Sie beginnen!", "Frage", 1)
Set WkBk = ActiveWorkbook
For Each WkSh In WkBk.Worksheets
WkSh.Name = WkSh.Cells(10, 2).Value & " Tabelle " & iLfdNr
WkSh.Cells(10, 3) = iLfdNr
iLfdNr = iLfdNr + 1
Next WkSh
End Sub

Ich will dieses Makro bei verschiedenen Excel-Mappen benutzen und dort sind leider die Zellbezüge für die Nummerierung und Beschriftung der Tabellen immer anders. Die späteren Anwender haben jedoch keinerlei Makro und VBA-Kenntnisse und können deshalb nicht im Makro die Zellbezüge händig ändern. Ist es deshalb möglich die beiden unten hervorgehobenen Bereiche durch eine Eingabenbox variabel im Makro zu halten?
WkSh.Name = WkSh.Cells(10, 2).Value & " Tabelle " & iLfdNr
WkSh.Cells(10, 3) = iLfdNr
Zum besseren Verständnis füge ich hier noch eine Mustertabelle bei:
https://www.herber.de/bbs/user/49757.xls
Vielen Dank für Eure Hilfe!
MfG Paul