Ter, eu não tenho o código, mas, creio que poderia ser algo assim:

Dim Protocolo As String
Dim UL As Integer 'Última Linha

UL = Sheets("Plan1").Range("A" & Rows.Count).End(xlUp).Row

Protocolo = Len(Cells(UL, "A").Value)
If Protocolo = 0 Then
    Protocolo = 1
    UL = 0
Else
    Protocolo = Left(Cells(UL, "A").Value, Protocolo - 7)
    Protocolo = Protocolo + 1
End If
Protocolo = Protocolo & "/" & Format(Date, "ddmmyy")

Cells(UL + 1, "A") = Protocolo