runtime error 1004 : Method range of object - 'Global' failed

Mr. Mickle

Thank you for the new tip.  A new horizon....

the final SUB would be below. ( It worked nicely )

(it is case sensitive)

many many thanks

Sub RemoveWordTotal()
    Application.ScreenUpdating = False
    Dim i As Long
    For i = Cells(Rows.Count, "B").End(xlUp).Row To 2 Step -1
        Cells(i, "B") = Application.Substitute(Cells(i, "B"),"Total","")
    Next i
    Application.ScreenUpdating = True
End Sub

The above  can also be used to replace a text instead of just blank. 
instead of "" - replace it with "New Text" !!
VERY VERSATILE CODE, Mr. Mickle.. 


FOR OTHERS WHO MIGHT FIND THIS USEFUL:
maybe called as function (BELOW)  >  Call ReplaceSomeText("Total", "B", "")
"Total" (mWRD) = the word within the cell to be replaced
"B" (mcol) = the column referenced
"" (newTXT) = blank or any text to replace mWRD

Sub ReplaceSomeText(mWRD As String, mcol As String, newTXT As String)
   Application.ScreenUpdating = False
   Dim i As Long
   For i = Cells(Rows.Count, mcol).End(xlUp).Row To 2 Step -1
       Cells(i, mcol) = Application.Substitute(Cells(i, mcol),mWRD, newTXT)
   Next i
   Application.ScreenUpdating = True
End Sub