Add value in empty cell always same line column after column

[cabete]

Hello everyone, i have this code in a work but after work the data like there is its difficulty so i decide change. Instead past i the same column line after line i would like to past always in the same line but column after column, but i am unsuccessful at the moment.



[VBA]Private Sub OKButton_Click()
Dim emptyRow As Long
Sheets(1).Activate
emptyRow = WorksheetFunction.CountA(Range("Q:Q")) + 1
Cells(emptyRow, 17).Value = INDUÇÃOTextBox.Value
Unload Me
End Sub[/VBA]


i try change but save me the values always in the same cell.

[VBA]Private Sub OKButton_Click()
Dim emptyRow As Long
Sheets(1).Activate
emptyColumn = WorksheetFunction.Count(Range("B2")) + 1
Cells(2, emptyColumn).Value = INDUÇÃOTextBox.Value
Unload Me
End Sub[/VBA]

[Bob Phillips]

[VBA]Private Sub OKButton_Click()
Dim emptyRow As Long
Sheets(1).Activate
emptyColumn = WorksheetFunction.Count(Rows(2)) + 1
Cells(2, emptyColumn).Value = INDUÇÃOTextBox.Value
Unload Me
End Sub [/VBA]

[cabete]

No i am specking change the row to columns.
I found the error already.

[VBA]Private Sub OKButton_Click()
Dim emptyRow As Long
Sheets(1).Activate
emptyColumn = Cells(2, Columns.Count).End(xlToLeft).Column + 1
Cells(2, emptyColumn).Value = INDUÇÃOTextBox.Value
Unload Me
End Sub
[/VBA]
But now if i want to star in a specific column??? How to do that?