Macro to find specfic header or begin from Active cell..

[bchill]

Hello Group,

Does anyone know if this is possible?

I have multiple formats for different reports, but I will always choose to begin my macro from the header titled "Description".

If that is too difficult, I would like to be able to select the header "Description" on my own, and allow the macro to begin from that point.

I have been searching this site all afternoon without any luck. I would grealt appreciate your help.

Here is the macro I have so far, which does what I need except it only works for one format. I would like the macro to start from a selected cell, and ontinued from there.

'
    Columns("H:H").Select
    Selection.Insert Shift:=xlToRight
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "Brazil Coded?"
    Range("H2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(FIND(""NCM"",RC[-1],1))=TRUE,""NOT CODED"",""CODED"")"
    Range("H2").Copy Range("H2", Range("H" & Range("E" & Rows.Count).End(xlUp).Row))
    Columns("H:H").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.Goto Reference:="R1C104"
    Application.CutCopyMode = False
    Selection.ClearContents
    Application.Goto Reference:="R1C1"
    Columns("H:H").EntireColumn.AutoFit
End Sub