Rafael, bem vindo.

Primeiro, peço que vc leia as regras do fórum. Pede-se que você se apresente, além de tomar cuidado para postar as dúvidas no local correto, usar sempre arquivos compactados, agradecer a quem ajudou, e criar títulos mais específicos).

Sobre a tua dúvida, como vc não mandou um exemplo anexo, eu não testei (e vc também não detalhou 100%), então, eu fiz o código abaixo:

Sub APAGAR_GT()

Application.ScreenUpdating = False

Dim i As Long
Dim j As Long
Dim UL As Long

UL = Cells(Rows.Count, "A").End(xlUp).Row
j = 1

For i = 1 To UL
    If Not Right(Cells(i, "A").Value2, 6) = "APAGAR" Then
        Cells(j, "B").Value2 = Cells(i, "A").Value2
        Cells(i, "A").ClearContents
        j = j + 1
    End If
Next i

Application.ScreenUpdating = True

End Sub

Abs

Movi teu tópico para VBA &Macros, pois este local é exclusivo para a apresentação dos novos usuários do fórum.

Por enquanto, teu tópico será mostrado nos 2 locais, para você se localizar.

[]s

Patropi - Moderador