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