Macro to copy formulas down 73,388 rows

I have a macro that will copy formulas from cells B2, C2, D2 & E2 down a certain number of rows (currently 73,388 rows!). The number of rows is in cell G1. The code I have so far is WAY too slow! It is taking 1 minute just to do 4,000 rows (I manually set G1 to 4,000). By comparison when I do a manual copy & paste of the formulas, it takes 10 seconds for the 4,000 items and 3 minutes for the 73,388 items. B & C have Vlookups; D&E have simple if statements. Turning calc on & off in the macro appears to have absolutely no effect. I have tried putting the four copies into the same For loop and it is still way too slow. Does anyone have any suggestions?