Copy Row Based on Criteria

[rct2323]

I am trying to copy an entire row that starts with the word "HDR" in the cell to all the rows below it that start with "DTL" until it reaches another row that starts with "HDR". Once it reaches another row that starts with "HDR" it will copy the row "HDR" to all the rows below it that start with "DTL" till it reaches a row that starts with "HDR" again.
For example if C1 is "HDR123", C2 is "DTL123", C3 is "DTL345" and C4 is "HDR456" it would copy row C1 to B2 and B3. I would then copy C4 to whatever rows below it start with "DTL". Any help would be greatly appreciated.
Thanks,

 

[iggydarsa]

Sub HDR()
Dim xVal As String: xVal = ""
For i = 1 To Range("C" & Rows.Count).End(xlUp).Row
    If Left(Range("C" & i).Value, 3) = "HDR" Then
        xVal = Range("C" & i).Value
    ElseIf Left(Range("C" & i).Value, 3) = "DTL" Then
        Range("B" & i).Value = xVal
    End If
Next i
End Sub

 

[rct2323]

Thank you for the reply. I pasted the macro into excel but it does not do anything. I have the below in each cell in column C starting in C1 going to C8. Please help.

<TABLE style="WIDTH: 48pt; BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width=64 border=0><COLGROUP><COL style="WIDTH: 48pt" width=64><TBODY><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-RIGHT: #d4d0c8; BORDER-TOP: #d4d0c8; BORDER-LEFT: #d4d0c8; WIDTH: 48pt; BORDER-BOTTOM: #d4d0c8; HEIGHT: 15pt; BACKGROUND-COLOR: transparent" width=64 height=20>HDR123</TD></TR><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-RIGHT: #d4d0c8; BORDER-TOP: #d4d0c8; BORDER-LEFT: #d4d0c8; BORDER-BOTTOM: #d4d0c8; HEIGHT: 15pt; BACKGROUND-COLOR: transparent" height=20>ALLCCCCCC</TD></TR><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-RIGHT: #d4d0c8; BORDER-TOP: #d4d0c8; BORDER-LEFT: #d4d0c8; BORDER-BOTTOM: #d4d0c8; HEIGHT: 15pt; BACKGROUND-COLOR: transparent" height=20>DTL456</TD></TR><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-RIGHT: #d4d0c8; BORDER-TOP: #d4d0c8; BORDER-LEFT: #d4d0c8; BORDER-BOTTOM: #d4d0c8; HEIGHT: 15pt; BACKGROUND-COLOR: transparent" height=20>DTL789</TD></TR><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-RIGHT: #d4d0c8; BORDER-TOP: #d4d0c8; BORDER-LEFT: #d4d0c8; BORDER-BOTTOM: #d4d0c8; HEIGHT: 15pt; BACKGROUND-COLOR: transparent" height=20>DTL9999</TD></TR><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-RIGHT: #d4d0c8; BORDER-TOP: #d4d0c8; BORDER-LEFT: #d4d0c8; BORDER-BOTTOM: #d4d0c8; HEIGHT: 15pt; BACKGROUND-COLOR: transparent" height=20>HDR0000</TD></TR><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-RIGHT: #d4d0c8; BORDER-TOP: #d4d0c8; BORDER-LEFT: #d4d0c8; BORDER-BOTTOM: #d4d0c8; HEIGHT: 15pt; BACKGROUND-COLOR: transparent" height=20>ALL222</TD></TR><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-RIGHT: #d4d0c8; BORDER-TOP: #d4d0c8; BORDER-LEFT: #d4d0c8; BORDER-BOTTOM: #d4d0c8; HEIGHT: 15pt; BACKGROUND-COLOR: transparent" height=20>DTL88777</TD></TR></TBODY></TABLE>

 

[rct2323]

I apologize it does work. Thank you for the help.