Find value in cells and copy part of it to other column

Hi, Abjac ,

find the solution for formulas in the attached workbook.

Using VBA it could look like this:

Sub abjdac()
Dim lngCounter As Long
For lngCounter = 2 To Cells(Rows.Count, "A").End(xlUp).Row
  With Cells(lngCounter, "A")
    If InStr(1, .Value, "R00") > 0 Then
      .Offset(0, 1).Value = Mid(.Value, InStr(1, .Value, "R00"), 8)
      .Resize(1, 2).Interior.ColorIndex = 43
      Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).Value = .Offset(0, 1).Value
    End If
  End With
Next lngCounter
End Sub

Ciao,
Holger