Question

I have a list of values that I need to format for processing and the format of the data isn’t suitable in it’s current form.

The values are currently in the following format:

There are far too many records to attempt this manually. What’s the best way to automate the process, either with a formula or VBA?

EDIT: The values in C3:C4 appear for each set of records in the sheet. The number of cells below them can vary from 1 to 3,000.

Thanks for your help.

EDIT: Tim you’ve been a huge help and I massively appreciate it – the edited version didn’t work though for some reason. In any case, I modified it very rudimentarily to loop back through and empty the cell values for the ones I didn’t want marked. Thanks again.

Sub Tester()

Const STATUS_FLAG As String = "status code:*"

Dim v1, v2
Dim c As Range
Dim sht As Worksheet

    Set sht = ActiveSheet
    Application.ScreenUpdating = False
    For Each c In sht.Range(sht.Range("C1"), sht.Cells(Rows.Count, 3).End(xlUp))
        If c.Value Like STATUS_FLAG Then
            v1 = c.Offset(-2, 0)
            v2 = c.Offset(-1, 0)
        ElseIf c.Value Like "http:*" Then
            c.Offset(0, -2).Value = v1
            c.Offset(0, -1).Value = v2
        End If
        If c.Value Like STATUS_FLAG Then
            c.Offset(-2, -2).Value = ""
            c.Offset(-2, -1).Value = ""
            c.Offset(-1, -2).Value = ""
            c.Offset(-1, -1).Value = ""
        End If
    Next c
    Application.ScreenUpdating = True

End Sub  

Answer 1

EDIT: don’t fill in next to “source” paths (v1, v2)

Sub Tester()

Const STATUS_FLAG As String = "Status code:*"

Dim v1, v2
Dim c As Range
Dim sht As Worksheet

    Set sht = ActiveSheet
    Application.ScreenUpdating = False
    For Each c In sht.Range(sht.Range("C1"), sht.Cells(Rows.Count, 3).End(xlUp))
        If Len(c.Value)=0 Then
            'reset on blank row
            v1=""
            v2=""
        ElseIf c.Value Like STATUS_FLAG Then
            v1 = c.Offset(-2, 0)
            v2 = c.Offset(-1, 0)
        ElseIf c.Value Like "http:*" and Len(v1)>0 Then
            c.Offset(0, -2).Value = v1
            c.Offset(0, -1).Value = v2
        End If
    Next c
    Application.ScreenUpdating = True

End Sub