Llevar datos a fila en serie

Buenos días tengo un textbox que me lleva los datos a una hoja en a la fila A1 en serie, A1, A2, etc..
Pero no se como hacer para que esto me lo haga en la fila B desde B10 hasta B25 en serie.
Adjunto código.
Private Sub UserForm_Click()
Private Sub UFAGREGAR_Click()
Dim iFila As Long
Dim ws As Worksheet
Set ws = Worksheets(1)
iFila = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
If Trim(Me.ufCODIGO.Value) = "" Then
Me.ufCODIGO.SetFocus
MsgBox "DEBE INGRESAR UN CODIGO"
Exit Sub
End If
ws.Cells(iFila, 1).Value = Me.ufCODIGO.Value
Me.ufCODIGO.Value = ""
Me.ufCODIGO.SetFocus
End Sub
Ayer me dijiste que debía crear un código similar para la columna B No se como se hace ya que este código lo copie de otra macro. Por fa colaborame porque no se como se hace
GRACIAS!