Hi
Put in
Application.Screenupdating = False

near the top of the code. It is automatically made true when the sub
finishes.
regards
Paul
On Apr 25, 7:46*pm, Amin wrote:
hi i have recorded a macro for my workbook to cut paste data however what i
have observed is that the procedure is than some how rough when is pasteing
and coming back to the last sheet. may i know how to get it done very
smoothly without shaken.

here is the code

Sub Transfer_()
'
' Transfer_ Macro
'

'
* * Range("Form").Select
* * Selection.Copy
* * Sheets("Sales ").Select
* * Range("Sales[[#Headers],[PRODUCT ID ]]").Select
* * Selection.End(xlDown).Select
* * ActiveCell.Offset(1, 0).Range("Sales[[#Headers],[PRODUCT ID ]]").Select
* * Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
* * * * xlNone, SkipBlanks:=False, Transpose:=False
* * Range("A9").Select
* * Sheets("Form").Select
* * Application.Goto Reference:="TabOrder"
* * Application.CutCopyMode = False
* * Selection.ClearContents
* * Range("D3").Select
* * ActiveCell.FormulaR1C1 = "=t0"
* * Range("D3").Select
* * ActiveCell.FormulaR1C1 = "=TODAY()"
* * Range("B3").Select
* * ActiveWorkbook.Save
End Sub