Cómo añadir un contador de registros

Utilizando un UserForm como formulario para la entrada de datos, copio los mismos a tres hojas distintas (Hoja2, Hoja3 y Hoja4), dependiendo del tipo de datos que se traten. Lo que quiero es en una hoja determinada (en la "Inicio", por ejemplo), me realice un contador de registros. Ejemplo:

En la Hoja "Inicio" he definido un nombre a tres rangos distintos. A1="Registro1"; A2="Registro2" y A3="Registro3". Lo quiero es que cuando registre el primer dato en la Hoja2, en la Hoja "Inicio", en A1 me ponga "1"; cuando registre el item, me ponga "2" y, así, sucesivamente. Y lo mismo, cuando grabe datos en la Hoja3, el contador de itims me lo lleve a hoja "Inicio", A2; y cuando se trate de datos grabados en la Hoja4, me lo lleve a "Inicio", A3.

He intentado, probando, en el siguiente código de registro en la Hoja2, añadir lo marcado en negrita y subrayado; pero me da error:

Private Sub cmdRegistra_Click()
Sheets("Hoja2").Select

Range("Registro1") = .Value + 1 'ERROR
t = Cells(Rows.Count, 1).End(xlUp).Row
Cells(t + 1, 1) = TextBox1.Text
'Cells(t + 1, 2) = DatePicker1 'Este no lo grabo de momento
Cells(t + 1, 3) = TextBox2.Text
Cells(t + 1, 4) = ComboBox1.Value
Cells(t + 1, 5) = ComboBox2.Value
Cells(t + 1, 6) = ComboBox3.Value
Cells(t + 1, 7) = OptionButton1.Caption
Cells(t + 1, 7) = OptionButton2.Caption
Cells(t + 1, 7) = OptionButton3.Caption
Cells(t + 1, 8) = ComboBox4.Value
TextBox1.Text = ""
TextBox2.Text = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
OptionButton1 = Empty
OptionButton2 = Empty
OptionButton3 = Empty
End Sub

Saludos.