right click on your worksheet tab and choose "View Code"
type this code
Private Sub Worksheet_Change(ByVal Target As Range)
Cells.Replace What:="&", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="/", Replacement:="", LookAt:=xlPart...