Delete entire row contains SUM words for each sheet contains 8000 rows

[Maklil]

Hi
I search for macro to deal with big data(more than 8000 rows for each sheet) increasing With the passage of time. should search for SUM words in column A for each sheet ,then just delete multiple entires rows contain SUM words at once for each sheet .
there are some sheets doesn't contain SUM words so should ignore it.
thanks

 

[Maklil]

Well Done,Fuji!
much appreciated for your help , also Mumps,Joe !

 

[Maklil]

I've found something it will delete any row contains any word in column A . should just delete SUM words !

 

[Fuji]

Then change the formula to

            .Formula = "=if(b1=""sum"",""z"","""")&row()"

 

[Maklil]

The same result !

 

[Fuji]

Can not replicate such issue here.

Do a step debug and find out what it is doing wrong.

 

[Maklil]

this is my bad!
that's because of this

With ws.[a1].CurrentRegion
            .Offset(1).Resize(.Rows.Count - 1).Columns(1) = Evaluate("row(1:" & .Rows.Count & ")")
        End With

ok everything is ok.