Tengo una dificultad con la macro para generar un consecutivo automático luego de la impresión

Tengo una dificultad con la macro que estoy utilizando para generar un consecutivo automático luego de imprimirla, ya que no me imprime el consecutivo que estoy visualizando sino el siguiente.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Unprotect "clave"
Dim Mensaje, Resp
Dim Total As Double
Total = WorksheetFunction.Sum(Range("K8:K10"))
Mensaje = "El total es " & [k11]
Mensaje = Mensaje & "¿Desea Imprimir?"
Resp = MsgBox(Mensaje, vbQuestion + vbYesNo)
On Error GoTo errNoPrint
If Resp = vbYes Then
Application.EnableEvents = False
[k11] = Total
Else
Cancel = True
Application.EnableEvents = True
End If
Application.EnableEvents = True
Exit Sub
[k3] = [k3] + 1
errNoPrint:
[k3] = [k3] - 1
Cancel = True
Application.EnableEvents = True
ActiveSheet.Protect "clave"
End Sub

Agradezco su colaboración para evaluar en que estoy fallando, de antemano muchos gracias