Rellenar una columna con varias filas desde un textbox

Que debo hacer para que el textbox copie varias fila, lo abajo descrito solo copia el valor una vez quiero que sea por los menos 100 filas. Excel vba 2010

Private Sub CommandButton1_Click()
    uf = Sheets("porcen").Range("B" & Cells.Rows.Count).End(xlUp).Row + 1
    Sheets("porcen").Range("B" & uf) = TextBox1
    Unload UserForm1
End Sub
Private Sub CommandButton2_Click()
Unload UserForm1
End Sub