Search for names in a column and row copying purposes

Hi all,
I wrote in another forum, but so far no solution to my problem, I need a macro. Please support by your side. Here's the problem:
I have a workbook with several sheets, one main, I found some code, but they were looking at only one sheet, which does not work for me.
So I have over 20,000 rows in each sheet A: H, how can you make it so that sheet14 (this is the example) by writing a name in cell A1 (sheet14) and press the blue button (Sheet14), to search all other sheets in columns D and stress when you find (and was several times) to copy the whole, entire rows of information for that name.

HI,

I used a filter for your problem.
The code loops thru each worksheet, filters and copies the
data to sheet14.
In sheet 14 range A1 you will enter the data you want to move to sheet 14.
In the code you will need to change Sheet14 to your actual sheet name.
You will also see a button for "Test" click it and check result.

k0st4din, let me know if the Excel 2007+ version attached by Charles is NOT supported by your version of Excel (in case you are using Excel 2003 or previous)

Hello Excel Fox,
is not no problem using the 2007 version at the moment.
Many thanks for your cooperation.
Be alive and well.
Regards :)