Uma maneira é percorrer todos os dados com uma pequena macro.
Sub clean()
Dim r As Range, i As Integer
Set r = Range("A1:AE150")
Application.ScreenUpdating = False
Do
i = 0
For Each cell In r
If cell.Value >150000 Then
cell.Delete Shift:=xlUp
i = i + 1
End If
Next cell
Loop While i > 0
Application.ScreenUpdating = True
End Sub
Aviso
As ações de uma macro não podem ser desfeitas. Sempre salve antes de executá-lo para evitar a perda de dados.
Observe que essa macro falhará se houver tabelas envolvidas