comando de espera no VBA

 A macro em questão atualiza uma conexão com o banco de dados Oracle e depois copia e exclui as duplicatas, porem a atualização dos dados do Oracle demora cerca de 40 segundos, e a macro roda o restante da operação antes de finalizar a atualização, preciso de um comando de espera para inserir entre a RefreshAll e a seleção:

Sub ATUL_COP_REMVDUPL()
'
' ATUL_COP_REMVDUPL Macro
'
' Atalho do teclado: Ctrl+Shift+Q
'
    ActiveWorkbook.RefreshAll
    Range("C5:C2000").Select
    Selection.Copy
    Range("F5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Range("$F$4:$F$2000").RemoveDuplicates Columns:=1, Header:= _
        xlYes
    Range("F5").Select
End Sub