Ombyg en formel eller ny formen

Hey denne formel virker men men den skal bare laves om så den kun ser efter 2 værdier som "Af" & "PÅ" hvis de værdier er det skal den gøre som formelen men kun ud fro de to værdier!

Sub Deling()
Dim str As String
Dim i, ln As Long

For i = 11 To 40
    Trim (Cells(i, 15).value)
    If IsNumeric(Left(Cells(i, 15).value, 4)) Then
    ln = Len(Cells(i, 15).value)
        Cells(i, 16).value = Left(Cells(i, 15).value, 4)
        If ln > 4 Then
            Cells(i, 17).value = Mid(Cells(i, 15).value, 6, ln) ' (1)
        End If
    Else
        Cells(i, 17).value = Cells(i, 15).value
    End If
Next i
End Sub