Search for names in a column and row copying purposes

[k0st4din]

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.