Erica,

Veja se isso ajuda:

Testei o código com a instrução abaixo que, quando passa um parâmetro verdadeiro, deleta a categoria e data de admissão.
No contrário, deleta somente a data de admissão.

Dei nomes às colunas, por isso, se usar o algoritmo em uma planilha diferente da anexa, crie os nomes também.

Sub TestarVerificarCategoria()
VerificarCategoria(VERDADEIRO)
End Sub

Sub VerificarCategoria(Optional DeletarCategoria As Boolean)

'   NOME: VERIFICAR CATEGORIA
'   ATOR: USUÁRIO
'   DESCRIÇÃO: [...]
'   AUTOR: FELIPE MHT (felipe.mht@gmail.com)

    Dim ctg As Range
    Dim adm As Range
    Dim categorias As Range
    Dim c As Range
    
    Set ctg = [Plan1].[categoria]
    Set adm = [Plan1].[admissao]
    Set categorias = ctg.SpecialCells(xlCellTypeConstants)

'   INÍCIO
'   ------------------------------------------------------
    For Each c In categorias
    
        If c = 2 Or c = 3 Then
            
            Cells(c.Row, adm.Column).Value = ""
            
            If DeletarCategoria Then
                c = ""
            End If
        
        End If
    Next c

End Sub

Abraço

Obrigadaaa vou testar..