Boa tarde!!

Tente isso..

Sub AleVBA_22386()
 
iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
For i = iLastRow To 1 Step -1
    If Cells(i, "B").Value = "aaaa" Then
        Rows(i).Delete
    End If
Next i

End Sub

Att

Não deu certo, pois está apagando a linha onde encontra-se a palavra, preciso que apague tudo o que estiver acima da linha onde contém a palavra.

Tenta este

Sub Limpar()


Dim WCLinha As Long

'A macro inicia na linha 1 se for para funcionar a partir de outra linha troque o numero abaixo 
    WCLinha = 1


    Do While Cells(WCLinha, 2).Value <> ""

    If Cells(WCLinha, 2).Value <> "aaaa" Then

    Rows(WCLinha).Delete

    Else

    WCLinha = WCLinha + 1

    End If
      
  If Cells(WCLinha, 2).Value = "aaaa" Then Exit Sub
      
    Loop

End Sub

Qdo o codigo encontrar na coluna B a palavra aaaa ele interrompe a execução.

Boa tarde!!

Tente

Sub AleVBA_22386()

iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
For i = iLastRow To 1 Step -1
    If Cells(i, "B").Value <> "aaaa" Then
        Rows(i).Delete
    End If
Next i

End Sub

Att