VBA Входные данные динамические

Question

У меня проблема с моим кодом в VBA.Я попытаюсь объяснить лучше:

В моей книге есть 3 разных листа: A1, A2, A3 - через InputBox, я сканирую A1 и перехожу к листу A1, затем я начинаю сканировать разные числа:1234567890,0987654321, и я должен написать их в столбце B, но поле ввода не открывается автоматически.

Если я снова сканирую пример A2, откройте лист VBA A2 и перейдите к столбцу B, а затем я начну ссканировать разные номера: 1234567890,0987654321 и т. д.

здесь мой код

---

Function WorksheetExists(WSName As String) As Boolean
    On Error Resume Next
    WorksheetExists = Worksheets(WSName).Name = WSName
    On Error GoTo 0
End Function

Sub input_()

    Dim SHNAME As String
    Do Until WorksheetExists(SHNAME)
        SHNAME = inputbox("Enter", "Location or Job")
        If Not WorksheetExists(SHNAME) Then MsgBox SHNAME & " Doesn't Exist!", vbExclamation
    Exit Do
    Loop
    If WorksheetExists(SHNAME) Then Sheets(SHNAME).Select
    ActiveSheet.Range("B1").Select

End Sub