Copy data from another sheet if the condition is met

Hello,

Can you help me how can I create macro that will copy the data from one sheet to another sheet in the same file? Wherein if the Posting Acct# column equals to 8001001 it will copy the column posting acct#, amount, employee name and expense to the another sheet? Please help. Below is the data sample. Thanks in advance.

No. Check Dt Time Plant ID Cost CNTR Posting Acct # Amount Employee Name Expense
1 10/29/2015 9:06:45 5008 0 8001001 60 Smith R 502A3E50A5434935
2 10/29/2015 9:06:45 5008 0 8001001 62.71 Adducci D 502A3E50A5434935
3 10/8/2015 9:10:20 1928.001.99.900 -42.39 Smith R F22E176F044140A5B0E
4 10/16/2015 9:00:20 1928.001.99.900 -13.73 Adducci D 775D40A025D542518CBE 0