How to copy rows from various sheet into 1 rolling sheet

[Bax]

Hi all,

The following problem exists...
I have an Excel2003 file which contains various sheets. They are named like "aa Pegatron", "bb Pegatron" etc. These sheets can contain any number of lines with data (up to max 5000 lines). The sheets have all the same format / layout.
I now need a macro to pull the data of all non-empty lines in columns D, E, F, H and J from all these various sheets into 1 accumulated sheet named "Overall sheet".

What code do I need to use so that the macro would recognize the different sheetnames (whereby Pegatron is the fixed value but the aa, bb, cc etc in front of it will change in the sheetname) and whereby all lines in these sheets are copied into the overall sheet without overwriting any existing lines in that sheet.

Attached an example file for your reference.

Any help would be highly appreciated!!
Peter