Input User form Data into a separate Worksheet to Macro button

Hi All,

I am fairly new to VBA programming and need a little help.

I am currently creating a spreadsheet so a friend can press a button in the first worksheet that will bring up a userfrom. the data will then be entered into the form and the user will press the Add button.

I have so far created this and it works fine the only problem is it will only enter the data on to the sheet where the button is and I need it to enter the data onto a different sheet to the macro button.

Below is my current code,

Private Sub btnAdd_Click()
rowCounter = 4
While Cells(rowCounter, 3).Value <> ""
    rowCounter = rowCounter + 1
Wend

Cells(rowCounter, 3).Value = tbxDate.Text
Cells(rowCounter, 4).Value = tbxDescription.Text
Cells(rowCounter, 5).Value = tbxAmount.Text
End Sub

Please can someone advise as to what extra code I need enter for this process to work as I wish.

Thank you for your assistance.

Martin

Private Sub btnAdd_Click()
with sheets("name of the sheet")

rowCounter = 4
While .Cells(rowCounter, 3).Value <> ""
rowCounter = rowCounter + 1
Wend

.Cells(rowCounter, 3).Value = tbxDate.Text
.Cells(rowCounter, 4).Value = tbxDescription.Text
.Cells(rowCounter, 5).Value = tbxAmount.Text

end with
End Sub

PS1: take some to read http://www.excelforum.com/forum-rule...rum-rules.html and then edit your post and add code tags as required by our rules.

PS2: While -wend approach is not very effective way to find first empty cell in column C use http://www.excelforum.com/search.php to find alternative ways to locate first empty cell in a given column.

Hi again, I have just tried the new code and I am getting the error code - Run time error - '9', Subscript out of range

any ideas?

code below

Private Sub btnAdd_Click()
    With Sheets("Sheet2")
    rowCounter = 4
While Cells(rowCounter, 3).Value <> ""
    rowCounter = rowCounter + 1
Wend

.Cells(rowCounter, 3).Value = tbxDate.Text
.Cells(rowCounter, 4).Value = tbxDescription.Text
.Cells(rowCounter, 5).Value = tbxAmount.Text
End With

End Sub

I don't know if this will help but the first line of data needs to be entered onto row 4, column C.

Many Thanks