Agregar un evento para enumerar filas a mi macros

Hola DAM:

nuevamente por aquí; gracias por tu ayuda:

he pasado toda la tarde tratando de entender los diferentes eventos que tiene una macros

soy autodidacta y esto me esta gustando: como te fijaras tengo un formulario por el cual

ingreso datos, en la col A mediante formula de SUBTOTALES enumero las filas que tengo llenas; más ahora con las lineas para ordenar en base a dos criterios en la macros, la

formula en la primera celda de la fila que se agrego queda vacía, he intentado de

algunas maneras, pero creo que ya me dio "lag".. Jejejeje

encontré el siguiente evento

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(Target.Row, "A").Value > 2 Then
Range("A2") = 1: Range("A3") = 2
Range("A2:A3").AutoFill Range(Range("A2"), _
Range("A2").End(xlDown)), xlFillDefault
End If
End Sub

supuestamente es para ir autoenumerando la columna A desde la fila 2 y de ahi para

adelante, tal como lo quiero yo, pero aun no entiendo como podría incorporar este

código a mi macros que la tengo dentro del Useform

gracias

besitos desde ecuador

Shaki