Boa tarde iamaxe

Seja bem vindo ao fórum!

Estou movendo teu tópico para o fórum VBA & Macros, pois aqui é exclusivo para formatação condicional.

Vc ta postando cruzado, ou seja, postando em mais de um fórum sem aguardar pelo menos 24 horas.
Isso pode prejudicar os outros usuários, pois podemos deixar de responder a quem precisa para responder a quem já teve sua dúvida solucionada em outro fórum.

http://info.abril.com.br/forum/viewtopi ... e5d447278e

Um abraço.

Boa noite!!

Essa parte de deletar F3 e G3 não ficou muito claro, pois a intenção seria ter algo mais dinâmico, ou você realmente vai usar somente uma linha para digitar e copiar?

Sub EuNaoEntendi()
    Dim rng As Range
     
    With Sheets("MANUTENÇÃO")
        .AutoFilterMode = False
        .Range("A1").AutoFilter field:=12, Criteria1:="PLANEJADO"
        Set rng = .AutoFilter.Range
        Set rng = rng.Offset(1).Resize(rng.Rows.Count - 1)
        rng.Copy Sheets("HISTÓRICO DE MANUTENÇÕES").Cells(Rows.Count, 1).End(xlUp)(2)
        .AutoFilterMode = False
    End With
     
End Sub

att