2003 Delete rows with specific value in column C

I need a code that will go thru column C and delete the whole row if cell value is 78315,
Also it needs to shift the the rows up so there is no empty rows wheneverything is done done
I used some codes but they take forever to go thru whole sheet, so please the fast and simple code would be appreciated.
Thanks

Why don't you just use AutoFilter, sort and then block delete?

try a non vba method
insert a new column or pick one out of range
and in cell 1 of that column put
=if(c1=78315,"found",row())
then drag down to as many rows in column c
now select the whole sheet
and sort by the new column
all the rows with "found" will be at the bottom
the others will have all moved up but still be in their original order
select all the rows with "found" in and delete in one go.
then delete added column
then again i just read above and thought yes why not use use auto filter?