Filter/replace

 Auto filter:

ActiveSheet.Range("A:F").AutoFilter Field:=3, Criteria1:="*Agent*"
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft

　　

 Replace:

 Selection.Replace What:=" STAGE", Replacement:="", LookAt:=xlPart, _
 SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
 ReplaceFormat:=False