Sub klorane()
Dim DerLig As Long, i As Long
DerLig = Range("D" & Rows.Count).End(xlUp).Row
For i = 2 To DerLig
If Cells(i, 3) <> "" Then
If Cells(i, 3) = Left(Cells(i, 4), Len(Cells(i, 3))) Then
Cells(i, 6) = Right(Cells(i, 4), Len(Cells(i, 4)) - (Len(Cells(i, 3)) + 1))
Else
Cells(i, 6) = Cells(i, 4)
End If
Else
Cells(i, 6) = Cells(i, 4)
End If
Next
End Sub