Hello,
Try :
Private Sub cmdMove_Click()
Dim inCalculationMode As Integer
Application.ScreenUpdating = False
inCalculationMode = Application.Calculation
Application.Calculation = xlCalculationManual
Range("A6:I" & [A65536].End(xlUp).Row).Copy _
Sheets(
try this code see is it helps .
Sub Macro1()
Dim z As Long
Sheets("Tambah").Select
Range("A6").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data