This macro works when the sheet is unprotected, but I get an error once I protect the sheet and I have to protect the sheet. Can someone help with this?

This is what I have attached to a button,

Private Sub CommandButton1_Click()
'Run Send_Data Macro
Send_Data

Sheets("DATA").Range("F2") = Sheets("DATA").Range("F2") + 1

End Sub