messaggio di errore con due celle piene

Worksheet_SelectionChange, comunque prova questa
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Or Target.Column = 10 Then
  If Target.Column = 3 Then
    For Each S In Range("j14:j60")
      If S.Value <> "" Then
        MsgBox "non puoi scrivere in questa cella se colonna J non è vuota "
        Exit Sub
      End If
    Next
  Else
    For Each q In Range("C14:C60")
      If q.Value <> "" Then
        MsgBox "non puoi scrivere in questa cella se colonna C non è vuota "
        Exit Sub
      End If
    Next
  End If
End If
End Sub