Insertar filas según valor de textbox

Gracias antemano por su tiempo y compartir sus conocimientos con nosotros.

Mi proyecto : Deseo ingresar datos supongamos desde (A11) ,los mismos por lo general son iguales o sea A11= uva , A12 = uva etc

Por lo tanto la mitad de mi proyecto esta resuelto con un bucle for, pero necesito insertar filas, tantas como me marque el textbox que es el mismo que marca la cantidad de repeticiones del texto. Espero haber explicado claro

dejo mi código

Private Sub Cmdproducción_Click()

Sheets("Producción").Select
Range("A11").Select

Dim palabra As String
Dim texto As String
Dim repeticiones As Double
palabra = CBoxpalabra.Value
texto = TextBox1.Value
repeticiones = TextBox2.Value
For i = 1 To repeticiones
Cells(i, 1) = palabra
Cells(i, 2) = texto
Next i
End Sub