¿Avanzar siguiente línea de programa hasta que acabe la anterior?

Estoy teniendo un problema al momento de ejecutar una MACRO, el detalle es que si la ejecuto manualmente (voy despacio) y todo bien, pero si la corro automáticamente me marca un error (el cual es muy seguro que sea por el tiempo en que ejecutan algunas líneas),

Sub IT_ScriptsFDD()
Dim w As Workbook
Dim FN As String
FN = "IT Scripts Generator.xlsm"
''Borrado de Sheets actuales FDD
Application.DisplayAlerts = False
On Error Resume Next
Sheets(Array("FDD_eNB Info", "FDD_PCI", "FDD_EutranCellFDD")).Delete
On Error GoTo 0
Application.DisplayAlerts = True
''Busca Archivo RNDCIQ FDD
For Each w In Application.Workbooks
  If (w.Name) Like "RNDCIQ_AMX_Puerto*.xlsx" Then
     Exit For
  End If
Next w
If Not w Is Nothing Then
w.Activate
Else
    MsgBox "No FDD_RNDCIQ workbook open!"
End If
''Copiar Pestañas de sitios FDD
Application.CalculateUntilAsyncQueriesDone
Sheets("eNB Info").Copy After:=Workbooks(FN).Sheets("Main")
Sheets("PCI").Copy After:=Workbooks(FN).Sheets("eNB Info") <<<<<--- Cuando doy debug aquí sale error
Sheets("EutranCellFDD").Copy After:=Workbooks(FN).Sheets("Main")