MACRO to remove unwanted character.

Hi Visha,
try

Sub ertert()
Application.ScreenUpdating = 0
Columns("E:E").Copy Columns("F:F")
With Range("F1", Cells(Rows.Count, 6).End(xlUp))
    .Replace "-", "~": .Replace "/", "~"
    .TextToColumns , , , , 0, 0, 0, 0, 1, "~"
End With
Range("F:F,H:J").Delete Shift:=xlToLeft
Application.ScreenUpdating = 1
End Sub