I am writing to seek help, in updating the following macro code below, so it can read any strings in column F, before the dashes and display the output in column G. However if Column F has a string (J-), then take number after dash.

Please advice, as I am little unsure how to go about updating this.

I have attached sample data in the attachment, and shows highlighted strings which the code is currently not translating.
Please note the code is behind 'sheet1', for further reference.
Book1.xlsm


If InStr(Dn, "-") Then
  Dn.Offset(, 1) = Split(Dn, "-")(0)
 Else
  Select Case UCase(Left(Dn, 1))

Case "J"
    If UCase(Left(Dn, 2)) = "J+" Then
        Dn.Offset(, 1) = Num
    ElseIf UCase(Left(Dn, 2)) = "J-" Then
    Dn.Offset(, 1) = Num
    End If
    End Select

Desired output in column G
J+34 --> 34
J-67 --> 67

Many Thanks for your time and help.