Copy selected data from one workbook to another

Hi All.
I'm a bit new here & also new with VB. I have 2 workbooks. In WB 1 some data are there. Now I need to copy those data to WB 2. But not all of them. I've attached both the files here. In srcsht there are 9 columns. In destsht there are only 5. Plus based on column 4 in srcsht i.e. Region, i need to copy the data for only East & not the rest, which is there at destsht in column 2.
Another thing is as i enter more rows in srcsht, the same should be increased in destsht too.

Can anyone help me how to do this...

Thanks in advance.
Soumya

Hi !

When destination columns titles are equal to source ones, easy way is using Excel function Advanced Filter …
Little demonstration with source and destination workbooks already opened :

PHP Code: 

Sub Demo()
    With Workbooks("destsht.xlsx").Worksheets(1)
        Application.ScreenUpdating = False
                    .[K1:K2].Value = [{"Region";"East"}]
        Workbooks("srcsht.xlsx").Worksheets(1).Cells(1).CurrentRegion.AdvancedFilter xlFilterCopy, .[K1:K2], .[A1:E1]
                    .[K1:K2].Clear
    End With
End Sub 


Do you like it ? So thanks to click on bottom left star icon « Add Reputation » !

Hi Jaslake...awesome...it worked. Thanks a lot guruji...
Hi Marc. Thanks for your reply too...although i didn't try that but still thanks for quick response