This is what I am after - does anyone know how I could adapt this macro so it wouldnt show in a message box but somewhere on the sheet? I would also like it so you didnt have to click the button to operate the macro if this is possible?

Can this part be expanded on so that rather than it display "Column A" (as in the code below) it displays the column headings e.g. Product, Spacer etc?
AFCriteria = "Column" & Replace(Cells(1, AFCell.Column).Address(0, 0), "1", "") & "  " & AFCrit & Chr(13)