Bom dia!!

Grave uma macro

Sub AleVBA_20431()
    [N1].Value = "AleVBA"
    Columns("N:N").Select
    Selection.AutoFilter
    ActiveSheet.Range("$N$1:$N$202").AutoFilter Field:=1, Criteria1:="<>"
    Range("N1:N" & Range("N" & Rows.Count).End(xlUp).Row).ClearContents
End Sub

Att

Olá Alexandre

Preciso que a macro apague os registros inseridos nas colunas "Q" e "R", considerando células mescladas ou não.
Entretanto, as linhas pintadas de preto não devem ser excluídas, independente se tem valores/textos ou não.
Após excluir os registros, o cursor deve retornar para a célula Q1.

Grato

Boa tarde!!

Eu fiz um teste na guia AleVBA_GuiaTeste, veja se é isso.

Dentro do EditorVB tem 2 módulos (AleVBACod_Mod - UDF_Mod )
Eu inserir uma UDF dentro do módulo para verificar o fundo da célula.

Rode a subrotina Sub AleVBA_20431V2() na guia de teste.

Att