Guru do Excel e Power BI

Olá,

Eu queria que alguém pudesse me ajudar interpretar este código pois não estou intendendo ele... por favor alguém poderia me ajudar e principalmente onde está em negrito.

Sub chamar()
If ProtegidoVBProject(ActiveWorkbook) Then

Else
sos
End If
Application.EnableEvents = False
Application.Visible = False
Dim cont, auxcont As Integer
Plan1.Range("c15485") = Date
If Plan1.Range("b15485") = nill Then
Plan5.Range("b15485") = Date
End If
cont = Format(Plan1.Range("c15485") - Plan1.Range("b15485"), "0")
auxcont = 9999 - cont
If cont >= 9999 Then
Application.Visible = False
UserForm.Show
Else
menu.Show
End If
End Sub


Att.

A célula C15485 da Plan1 recebe o valor da data atual do sistema operacional.
Se a célula B15485 da Plan1 estiver vazia, então ela recebe o valor da data atual também.
Atribui a variável cont a diferença de dias entre as datas nas células C15485 e B15485, formatando para ser exibido no formato númerico.

Obrigado!!! Entendi