Cheers.
- Code: Select all
Sub Macro1()
'
' Macro1 Macro
'
'
Range("AA5").Select
Selection.Copy
Range("R5").Select
ActiveSheet.Paste:
Application.Wait (Now + TimeValue("00:00:05"))
Range("AA6").Select
Selection.Copy
Range("R6").Select
End Sub
ActiveSheet.Paste: