Search dynamic selection and delete cell string

Hi I have a loop macro that doesn't work fully.
If I dont get one or two empty cells at the end of the selection I get:
Object variable or With block variable not set (Error 91).
It loops ok, but I know the exit loop is flawed, it should loop through each cell in the range and stop.

Here is the macro:

Sub DeletePercent()
'
' Macro 02/04/2007
'
Dim LastRow As Long

LastRow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Range("J2:J" & LastRow).Select
Do Until IsEmpty(ActiveCell) And IsEmpty(ActiveCell.Offset(1, 0))
Selection.Find(What:="%", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate

ActiveCell.Value = ""

Loop

End Sub

The data looks like:

Arrangement £1999,
Arrangement 1.50% Advance,
Arrangement £1999,
Arrangement £1999,
Arrangement 1.50% Advance,
Arrangement 1.50% Advance,
Arrangement 2.50% Advance (Min £599.00),
Arrangement 2.00% Advance (Min £599.00),
Arrangement 1.50% Advance (Min £599.00),
Arrangement £599,
Arrangement 1.50% Advance (Min £599.00),
Arrangement £599,
Arrangement 1.50% Advance (Min £599.00),
Arrangement £599,
Arrangement £599,
Arrangement 0.75% Advance (Min £599.00),


I want to get rid of the % data, thats it.

Thanks mikerickson for your reply.
I tried your code, but I couldn't get it to loop?
Any thaughts?

My main thought is that I avoid using Select and Active Cell or Sheet when coding.
This worked for me. Assuming that your example is the text that was in the column. If the percentages are numeric entrys with formatting, you will need a different kind of loop.
You may have to put in the proper sheet name. Also note the change in search terms; What:= a wildcard, LookIn:=Values rather than formulas, After:=specific cell rather than ActiveCell.

Please Login or Register  to view this content.

Thanks mikerickson, this is perfect.
My loop theory is a little lacking at the moment, so this was a big help!