Sub Macro1()
Columns("G:G").Replace What:="=", Replacement:="&", LookAt:=xlPart, _
SearchOrder:=xlByColumns
Columns("G:G").Replace What:="o", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByColumns
Columns("G:G").Replace What:="&", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByColumns
End Sub