I would like to gve the RefreshAll 5 seconds to complete before performing
the next actions. Is this possible?

Thanks

ActiveWorkbook.RefreshAll

Sheets("Data").Select
Sheets("Data").Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False