I need VBA code that would search for a Area and give me all zip associated with it.

Rawdata Sheet has 2 columns

Area Zip
1 18240
1 18250
1 18252
1 18706
2 18229
2 18235
2 18250
3 18030
3 18058
3 18071
4 18079
4 18080

User enters in Sheet 2

Area
1
2
3
4


Results are displayed in Sheet3

Area Zip
1 18240
1 18250
1 18252
1 18706
2 18229
2 18235
2 18250
3 18030
3 18058
3 18071
4 18079
4 18080