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

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range, Cella As Range
Dim Colonna As String
    Application.EnableEvents = False
    If Not Intersect(Target, Range("J14:J60")) Is Nothing Then
        Set R = Range("C14:C60")
        Colonna = " C "
    ElseIf Not Intersect(Target, Range("C14:C60")) Is Nothing Then
        Set R = Range("J14:J60")
        Colonna = " J "
    End If
    If Not R Is Nothing Then
        For Each Cella In R.Cells
            If Cella <> "" Then
                Target = ""
                MsgBox "Non puoi scrivere in questa cella se colonna" & Colonna & "non è vuota."
                Exit For
            End If
        Next Cella
    End If
    Set R = Nothing
    Application.EnableEvents = True
End Sub

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Intersect(Target, Uni0n(Range("C14:C60"), Range("J14:J60"))) Is Nothing Then Exit Sub
    Select Case Target.Column
        Case 3
            If WorksheetFunction.CountA(Range("J14:J60")) > 0 Then
                MsgBox "Non puoi scrivere in questa cella se colonna J non è vuota"
                Exit Sub
            End If
        Case 10
            If WorksheetFunction.CountA(Range("C14:C60")) > 0 Then
                MsgBox "Non puoi scrivere in questa cella se colonna C non è vuota"
                Exit Sub
            End If
    End Select

End Sub