Como incrementar un contador de una celda en visual excel

Hola tengo un formulario en visual donde ingreso datos de producto, estos son: Código, Descripción, unidad, marca, precio, etc.
Encontré la forma de ingresar los datos en las celdas siguientes, sin ningún problema con este código:
Private Sub CmdAceptar_Click()
Application.Goto ActiveWorkbook.Sheets("productos").Cells(1) 'MÉTODO PARA UTILIZAR LA HOJA PRODUCTOS
'datos no vacíos
If Me.TextClave.Text = "" Then MsgBox ("Clave no puede estar vacía"): Exit Sub
If Me.TextDescripcion.Text = "" Then MsgBox ("Descripción no puede estar vacía"): Exit Sub
If Me.TextUnidadMedida.Text = "" Then MsgBox ("Unidad de medida no puede estar vacía"): Exit Sub
If Me.TextMarca.Text = "" Then MsgBox ("Marca no puede estar vacía"): Exit Sub
If Me.TextUnidadMedida.Text = "" Then MsgBox ("Unidad de medida no puede estar vacía"): Exit Sub
'NUEVO CÓDIGO PARA LA INSERCIÓN DE DATOS EN LA HOJA DE EXCEL
'VARIABLES PARA ALMACENAR LOS DATOS
Dim CLAVE As String
Dim DESCRIPCIÓN As String
Dim UNIDADMEDIDA As String
Dim MARCA As String
Dim PRECIO As String
'VARIABLE PARA GUARDAR EL REGISTRO DE LA ULTIMA FILA
Dim ULTIMAFILAS As Double
'GUARDAR LOS DATOS DE LOS .TEXT EN VARIABLES
CLAVE = TextClave.Value
DESCRIPCIÓN = TextDescripcion.Value
UNIDADMEDIDA = TextUnidadMedida.Value
MARCA = TextMarca.Value
PRECIO = TextPrecio.Value
'HACEMOS QUE LA CELDA INCREMENTE DE INTENTAR CON LA VARIABLE ULTIMAFILA
ULTIMAFILAS = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
Cells(ULTIMAFILAS + 1, 1) = CLAVE
Cells(ULTIMAFILAS + 1, 2) = DESCRIPCIÓN
Cells(ULTIMAFILAS + 1, 3) = UNIDADMEDIDA
Cells(ULTIMAFILAS + 1, 4) = MARCA
Cells(ULTIMAFILAS + 1, 9) = PRECIO
'limpiamos formulario para la siguiente captura
Me.TextClave.Text = ""
Me.TextDescripcion.Text = ""
Me.TextUnidadMedida.Text = ""
Me.TextMarca.Text = ""
Me.TextPrecio.Text = ""
'ponemos el cursor siempre en el primer campo
Me.TextClave.SetFocus
End Sub
Private Sub CmdCancelar_Click()
'botón cancelar que nos borra todo
Me.TextClave.Text = ""
Me.TextDescripcion.Text = ""
Me.TextUnidadMedida.Text = ""
Me.TextMarca.Text = ""
Me.TextPrecio.Text = ""
End Sub
Pero ya después de haber ingresado mas de 200 productos quiero que el textClave me muestre ya el 201, después de ingresarlo, me muestre el 202 y así consecutivamente.
Traté de solucionarlo con un botón a lado del textCodigo, un botón llamadoCommandButtonUltimoCodigo_Click() que al picarle me arroje de la celda a el ultimo valor + 1, pero me imprime lo que puse en la celda uno que es "código" que es el título que le puse a esa celda y ya después es puro número.
Private Sub CommandButtonUltimoCodigo_Click()
Cells(a1 + 1, 1).Select
TextClave.Value = ActiveCell
a1 = ActiveCell.Row
End Sub
Agradecería mucho tu ayuda o si me pasas un tutoríal de donde encontrarlo te lo agradecería.