Alimentar libro con datos del formato

Hola, Tengo un formato llamado "registro", necesito que cuando termine de digitar todos los campo y le vaya a dar click a un botón que tengo para imprimir, me asigne un numerador automático, me imprima, me guarde el archivo en PDF en otra carpeta y adicional me alimente una base de datos que se llame consolidado.

La macro que tengo hasta el momento es la siguiente:

Sub Imagen_Haga_clic_en()
Sheets("APROVECHAMIENTO").Select
Range("A1").Select
Range("M1").Value = Range("M1").Value + 1
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\LCCJV\Documents\Liga Contra El Cáncer Seccional Huila\Aprovechamiento\ Acta AP No. " & Range("M2").Value
End Sub

Agradezco al experto que me pueda ayudar en el tema.

Gracias