Visual Basic - interpretar codigo

Que hace este codigo pues cuando lo ejecuto por su comando pareciera que no hace nada, podrian explicarme por favor que hace este codigo paso por paso

Private Sub Cerrar_Click()
Dim estado1 As Variant, estado2 As Variant
Dim resp As Variant

If resp = vbOK Then
Procesado.Value = True
DoCmd.RunSQL "INSERT INTO T_ExistenciasHistorico select * from L_InventFecha"
DoCmd.RunSQL "DELETE * from L_InventFecha"
Procesar.Enabled = False
Nuevo.SetFocus
Cerrar.Enabled = False
Activar
End If
End Sub
que problaemas tiene

Aparetemente, lo que hace (o debería hacer) es copiar los registros de una tabla a otra y después borrar todos los registros de la primera.

Ahora, los problemas que tiene si es que los tiene) nos lo deberías decir tú

Oime viejo y experto .... veo que no sabes leer la persona pidió una explicación paso a paso ...... entendes ????

nabo.