VB Code or formula to bring data from other sheet

Hello:

I have lots of data in Sheet1 as shown.
I need either VB Approach or Formula to do the following:
in Sheet2 , i will select the month in cell B1 and column A:D should be filled up with
data from Sheet1.
As an example i have manually copied for the month of May.
Please let me know if you have any questions.
Thanks.

R

Hi AB33:

Works, will further test and let you know.
Thanks
Riz

Hi AB33:

I have small change in the requirement.
Please refer to attached file.
Instead of selecting just the month in Sheet2, now i have MonYY in cell B2 in sheet2.
Please help change the code to accomodate this date change.
Let me know if you have any questions.
Thanks.

R

Hi Riz,
You have already done most of the adjustment of the code. I just amended one line of the code on module 1.

Hi AB33:

Thanks a lot
R