Copying and pasting from MS Project to MS Excel
A few things here:


Read this. Its lists things to do when copying large amounts of data
Did you set Application.Calculation = xlCalculationManual? Your manually calling Calculate, but you never turn off autocalcualtion.
Did you set Application.ScreenUpdating = FALSE? That can speed things up.