Need to remove some contents of a cell.

If a VBA solution is OK, try this UDF:

Function RemoveToken(sInp As String, iToken As Long, Optional sSep As String = "-") As String
    Dim astr() As String
    Dim i As Long
    Dim n As Long
    
    astr = Split(sInp, sSep)
    If UBound(astr) < iToken - 1 Then
        RemoveToken = sInp
    Else
        For i = iToken - 1 To UBound(astr) - 1
            astr(i) = astr(i + 1)
        Next i
        ReDim Preserve astr(UBound(astr) - 1)
        RemoveToken = Join(astr, sSep)
    End If
End Function

Usage for you would be

=RemoveToken(A2, 6)

or
=LEFT(A1,FIND("/",SUBSTITUTE(A1,"-","/",5))-1)&RIGHT(A1,2)

Much simpler, Martin.

Worked like a charm. Thanks guy's.