Pessoal consegui o codigo que faz a soma a cada abertura, porem, preciso que esta contagem seja realizada a cada imprensão ou a cada vez que o arquivo for salvo.

Private Sub Workbook_open()
[R2] = [R2] + 1
End Sub

Se alguem conseguir me ajudar

conseguir fazer a cada vez que o arquivo for salvo...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Conhecimento do Transporte").Activate
[r3] = [r3] + 1
End Sub