Print Value from Inputbox

[Benonimv]

Hi All,

I have written a code to paste the Value from Input box, however a
facing the problem, I want VBA to paste until there is a value in Co
"C" Could you please help.



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 Su

+-------------------------------------------------------------------
+-------------------------------------------------------------------