Boa tarde!!

Se for assim, você consegue adaptar o restante..?

Sub Teste()
For Each Cell In [az1:az500]
If Cell.Value = "1" Then Cell.ClearContents
Next Cell
End Sub

Att

Eu ainda não testei a sua dica alexandrevba, pois gostaria de tirar uma duvida

Isso irá apagar os valores das colunas B e C ou apagará da coluna AZ?

Boa tarde, segue de acordo com o solicitado! Coloca um Command e instancia o metodo delete.

att

Sub Deleta()
Dim contL As Integer
For i = 1 To 500
If Cells(i, 52).Value = 1 Then
Range(Cells(i, 2), Cells(i, 3)).Value = Empty 'B,C
End If
Next i
End Sub

by:MarkoSOftware

Boa tarde!!

Tente assim..

Não testado

Sub AleVBALimpar()
    Dim r As Long
    For r = 1 To Cells(Rows.Count, 52).End(xlUp).Row ' caso queira limpar da segunda linha em diante mude para 2
        If Len(Cells(r, 52)) = 1 Then
            Range(Cells(r, 2), Cells(r, 3)).ClearContents
        End If
    Next r
End Sub

Se melhorar estraga, obrigado alexandrevba