Copy and Paste Value from Input box

Hi All,

I have created a Macro to paste the values in Col A until it finds a value in Col B, but this code some what does not work, can someone rectify it.

Thanks,
Ben

Option Explicit 
 
Sub test() 
    Dim Eingabe As String 
    Dim Rw As Long 
     
    Rw = Cells(Rows.Count, 1).End(xlUp).Row 
    Do Until Not IsEmpty(Cells(Rw, 3).End(xlUp)) 
        Eingabe = InputBox("Enter a number") 
        Cells(Rw, 1).Value = Eingabe 
        Rw = Rw + 1 
    Loop 
End Sub