Una macro para acumular entrega de dinero, problema al proteger celda

Lo he logrado, con un ejemplo de Elsamatilde.

Sub ACUMULAR_COBRADO()
'x Elsamatilde
Sheets("Estadistica Venta").Range("F72") = Sheets("Estadistica Venta").Range("F72") + Range("G45")
End Sub

Lo he ajustado a mis necesidades y fenomenal
Pero, me encuentro que tengo que desproteger celda. ("Estadistica Venta"). Range("F72"), para ejecutar la macro.
Y no puedo tenerla protegida