urgent need help to have the code VBA for Vlookup

[wadedaring]

Is there anyone who can help me to give me the code in VBA for the Vloopkup formula?

I am having 2 excel files in my hand and there are over 80,000 lines+.it will take me a lot of time if i use the Vlookup formular to run the data.So i heard of using code VBA in macro that will be more effective and cost less time.

This is my formular.
the first one
=VLOOKUP(A2&D2,IF({1,0},'[sheet 1.xlsx]Sheet1'!$A$2:$A$75819&'[sheet 1.xlsx]Sheet1'!$D$2:$D$75819,'[sheet 1.xlsx]Sheet1'!$F$2:$F$75819),2,0)}

the second one:

=VLOOKUP(A2&D2,IF({1,0},'[sheet 1.xlsx]Sheet1'!$A$2:$A$75819&'[sheet 1.xlsx]Sheet1'!$D$2:$D$75819,'[sheet 1.xlsx]Sheet1'!$G$2:$G$75819),2,0)}

I am reallu in need if there is anyone who can help me on this issue. And all the help is highly appreciated. Thank you so much.And this is also my mail, if you want me to provide the original file: wadedaring@yahoo.com

THis is the format of these file.

Sheet 1:

A E F G
Pers.No. To Date Rec. hrs Target hrs
00038106 05.06.2011 17.000 40.000
00038106 12.06.2011 0.000 40.000
00038106 19.06.2011 0.000 40.000
00038106 26.06.2011 0.000 40.000

sheet2:

A B C D
HP ID EDS ID From date To Date
00071486 00000000 30.05.2011 05.06.2011
00071486 00000000 06.06.2011 12.06.2011
00071486 00000000 13.06.2011 19.06.2011