Returning all the values in a column based on the column header

I'm hoping someone can help me out with this problem I'm having in excel. I would like to write a VB script that takes an input value and searches row 1 for that input value. When it finds it, I need it to return all of the values in the column where the value was located, and ignore any blank cells.

I've attached a sample document that shows what the current data looks like.

For example, if the value I'm looking for is 02, it should return all of the numbers in column B

Any help creating this macro would be greatly appreciated.

Thanks,
Chris

The filter wont help me. I need to be able to input one of the header values on a different sheet and have it return a list of the numbers that correspond with that header.

may be so. Try to change the value in A1 on sheet2.
Previously run this macro for Sheet1

Sub ert()
With Sheets("Sheet1").UsedRange
    .Value = Application.Clean(.Value)
End With
End Sub