Como almacenar temporalmente una fecha

En esta ocasión recurro a uds, para que me brinde su apoyo en como mejorar o quizás hacerle algunas modificaciones a la macro, que describo a continuación, lo que se requiere es como almacenar temporalmente la FECHA y TONELAD 15 veces como se aprecia en la imagen1, (ya que se realizo 1 registros de los 15, quedando por registrar 14) una vez almacenados los campos fecha y tonelad, solo se empezara a registrar desde el campo TURNOS. ESPECIALIDAD, LICENCIA y DNI, como se aprecia en la imagen2, hasta completarse los 15 registros, una vez registrado los 15 registro se deberá liberar el campo fecha y tonelad, para volver a registrar otros 15 registros y si fuese posible en el formulario agregarle un contador que valla contabilizando los registros, anexo link para descargar el archivo.

https://drive.google.com/file/d/1NtEx9h3QceUQezh16KKzjkOYSDGgLJPC/view?usp=sharing 

Desde ya agradezco su apoyo y colaboración.

Private Sub TONELAD_AfterUpdate()
TONELAD.Value = Format(TONELAD.Value, "###,###.000")
End Sub
Private Sub UserForm_Initialize()
mes = Date
End Sub
Private Sub CommandButton1_Click()
Sheets("INGRESO").Activate
Range("D3").Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 0) = CDate(FECHA)
ActiveCell.Offset(0, 1) = Val(BOLETA)
ActiveCell.Offset(0, 2) = TONELAD.Value
ActiveCell.Offset(0, 3) = Val(JORNADAS)
ActiveCell.Offset(0, 4) = Val(ESPECIALIDAD)
ActiveCell.Offset(0, 19) = Val(LICENCIA)
ActiveCell.Offset(0, 14) = Val(DNI)

Sheets("INGRESO").Activate

MsgBox "DATOS INGRESADOS CORRECTAMENTE", vbOKOnly + vbInformation, "AVISO"

ultimoReg

FECHA = ""
BOLETA = ""
TONELAD = ""
JORNADAS = ""
ESPECIALIDAD = ""
LICENCIA = ""
DNI = ""

FECHA = "": FECHA.SetFocus
'FECHA = Len(FECHA.Text)
'FECHA.SetFocus

JORNADAS.SetFocus

End Sub

Private Sub FECHA_Change()
largo_entrada = Len(Me.FECHA)
Select Case largo_entrada
Case 2
Me.FECHA.Value = Me.FECHA.Value & "/"
Case 5
Me.FECHA.Value = Me.FECHA.Value & "/20"
End Select
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
'

Private Sub UserForm_activate()
ultimoReg
codtra = Range("D" & nFila)
APE = Range("C" & nFila)
UserForm3.TextBox1.Text = codtra
UserForm3.TextBox2.Text = APE
UserForm3.Label16.Caption = nFila
End Sub

imagen1

imagen2