Sub Macro1()
Dim oTable As Table
Dim i As Long
Dim oRng As Range
Dim sText As String
    Set oTable = Selection.Tables(1)
    With oTable
        For i = 1 To .Rows.Count
            Set oRng = .Rows(i).Cells(1).Range
            If InStr(1, oRng.Text, "/") > 0 Then
                sText = Split(oRng.Text, "/")(0)
                If Not sText = "Income" And IsNumeric(sText) = False Then
                    oRng.Text = Trim(Split(oRng.Text, "/")(1))
                End If
            End If
        Next i
    End With
    Set oTable = Nothing
    Set oRng = Nothing
End Sub