Sub ExtYear()
    Dim i, sh As Long
    sh = .Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To sh
        Cells(i, "B").Value = Split(Cells(i, "A").Value, "_")(UBound(Split(Cells(i, "A").Value, "_")))
    Next i
End Sub