Hi

See how this goes.

Sub aaa()
  Dim OutSH As Worksheet
  Sheets.Add after:=Sheets(1)
  ActiveSheet.Name = "Output"
  Set OutSH = ActiveSheet
  Sheets(1).Activate
  
  For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    If Len(Cells(i, 2)) > 0 Then ID = Cells(i, 2).Value
    If InStr(1, Cells(i, 1), "WorldCheck UID") > 0 Then
      outrow = OutSH.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
      OutSH.Cells(outrow, 1).Value = Cells(i, 1).Value
      OutSH.Cells(outrow, 2).Value = ID
    End If
  Next i
  OutSH.Range("A:A").Replace what:="WorldCheck UID = ", replacement:=""
End Sub
rylo