Maybe you shouldn't be basing the lastrow on column A:

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row

maybe...

iLastRow = Cells(Rows.Count, "G").End(xlUp).Row

If column A ended in row 11, you'd only be looking at rows 1:11.



Les Stout wrote:

Hi Tom, i have tried it again and cell G11827 has the string "Total due
to supplier" in it, so i want it to delete this row, but it does not ?

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***

--

Dave Peterson