Sub test() Workbooks("testing.xlsm").Activate Sheet3.Select Range("A13:c13").Copy Sheet4.Select Range("b1").End(xlDown).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Application.OnTime Now + TimeValue("00:00:10"), "test" End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)