Agregar datos entre celdas y que el rango aumente según los datos

Tengo el siguiente código que me agrega los datos entre celdas, pero quisiera que el rango que le asigne también crezca. Ya que el otro rango de color verde también aumentara y así mismo también para el naranja. Porque también asignare datos entre celdas para los de los otros colores.

El código es el siguiente:

Private Sub CommandButton1_Click()
'Primera selccion
Dim fre As Integer, gra As Integer
fre = Range("colrosado").Rows.Count     'EL RANGO QUE LE ASIGNE SE LLAMA COLOR ROSADO
gra = (fre + 4)
Rows(gra).Select
Selection.Insert Shift:=xlDown
Cells(gra, 1).Value = TextBox1.Value

Cells(gra,2).Value =TextBox2.Value

Cells(gra,3).Value=TextBox3.Value

End Sub

Bueno si saben alguna otra forma de asignar datos entre celdas me lo hacen saber.