replace numerical data column A, 11K rows! VBA

Dear forum user,

I need some help to sort my data in column A which contains a long list of numerical data. To do this manually using copy and paste would be easy, but not viable because of the large amount of data.

The attached PDF file illustrates the data. I wish to replace each date of dirth entry in column A (one D.O.B. in each cell / row, expressed as YYYYMMDD) with the client identifier number (format 937XXXX) a couple of cells above. And at the same time delete the row containing the client reference (or its contents). The data in column A should retain the same relationship to the data in the other columns (B,C).

it may require a short piece of VBA code.

thanks,

Simon.

Try this macro.

Sub Test()
LastRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row
EndOfBlock = LastRow
For N = LastRow To 1 Step -1
    If Left(Cells(N, 1), 3) = "937" Then
        For M = N + 1 To EndOfBlock
            If Cells(M, 1) <> "" Then
                Cells(M, 1) = Cells(N, 1)
            End If
        Next M
        EndOfBlock = N - 1
        Rows(N).Delete
    End If
Next N
End Sub

For some reason the counter is no displaying properly. Trying again.

Sub Test()
LastRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row
EndOfBlock = LastRow
For N = LastRow To 1 Step -1
    If Left(Cells(N, 1), 3) = "937" Then
        For M = N + 1 To EndOfBlock
            If Cells(M, 1) <> "" Then
                Cells(M, 1) = Cells(N, 1)
            End If
        Next M
        EndOfBlock = N - 1
        Rows(N).Delete
    End If
Next N
End Sub