And values same row column after column

[nunocabete]

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.

OLD CODE

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

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

NEW CODE TRYING

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

The excel with the sample its to big almost 2mb and the forum dont allow