You are welcome.

If only one specific header has to be ignored, change:
....
If Cells(i - 1, 1).Value < Cells(i, 1).Value Then
....
to

If (Cells(i - 1, 1).Value < Cells(i, 1).Value) and _
Left(Cells(i, 1).text,20)< "First 20 Chars of Header Row" Then

for example (if you have to cross that bridge again).

HTH,
Bernd