Boa tarde!!

Tente usar a pesquisa do fórum!

Tente algo assim.

Sub AleVBA()
    [J2].Value = "J"
    [R2].Value = "R"
    With Worksheets("Plan1").Range("J2:R2") '.Cells
        .AutoFilter
        .AutoFilter Field:=9, Criteria1:=1
    End With
    Cells.SpecialCells(xlCellTypeVisible).Clear
    ActiveSheet.AutoFilterMode = False
End Sub

Att

Alexandrevba, a macro precisa deletar só o valor e na solução proposta a linha "tá" indo junto.

Boa tarde!!
Tente.

Sub AleVBA_11445()

Dim r As Excel.Range
    [J2].Value = "J"
    [R2].Value = "R"
    With Worksheets("Plan1").Range("J2:R2")
        .AutoFilter
        .AutoFilter Field:=9, Criteria1:=1
        Set r = Range(.Cells(2, 1), .Cells(2, 1).End(xlDown))
    End With
    r.ClearContents
    ActiveSheet.AutoFilterMode = False
End Sub

Att

Não entendi porque tem de ser gravado um R e um J nas respectivas colunas? Na planilha de trabalho outra formulas ocupam essas celulas.

Boa noite!!

Resolveu ou não??????????????

Até onde sei o seu arquivo tem dados não congruentes e nem cabeçalho.

Eu tive que filtrar e o filtro exige cabeçalho.

Sub AleVBA_11445V2()

Dim r As Excel.Range
    [J2].Value = "J"
    [R2].Value = "R"
    With Worksheets("Plan1").Range("J2:R2")
        .AutoFilter
        .AutoFilter Field:=9, Criteria1:=1
        Set r = Range(.Cells(2, 1), .Cells(2, 1).End(xlDown))
    End With
    r.ClearContents
    ActiveSheet.AutoFilterMode = False
    'Como apagar
    [J2].Value = ""
    [R2].Value = ""
    
End Sub

Att

Essa ultima versão resolveu perfeitamente o pedido. Muito agradecido a ajuda.