Put data on current line

[Gregfox]

Hello, I have the following, and would like to put the data in the row on which I'm currently selected, instead of A1, B1 etc. If selected to A300 add to A300, B300 etc.
Is there a way?
Thanks

 

[Gregfox]

sorry..
here's the data
Sub test()
Dim sDate As String, sName As String, sCurrency As String
sDate = InputBox("Enter date", "Date Input", Format(Date, "mm/dd/yyyy"))
sName = InputBox("Enter name")
sCurrency = InputBox("Enter value (number only)")
Range("B1").Value = DateValue(sDate)
Range("A1").Value = sName
With Range("C1")
.NumberFormat = "$.00"
.Value = Val(sCurrency)
End With
End Sub