será que tem uma maneira melhor de fazer isso?
algo mais rápido e limpo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("AJ33:BH33")) Is Nothing Then
        For Each cl In Range("AJ33:BH33")
            If Not Intersect(cl, Selection) Is Nothing Then
                If cl.Value2 = "" Then cl.Value2 = "X" Else cl.Value2 = ""
            End If
        Next
    End If
End Sub

a macro até faz oq se quer , mas estou achando o codigo muito poluído
faz bastante que não mecho com areas selecionadas