Cut and Paste is VERY Slow!!!

this is the best result in my case.

Sub fsd()
FoundRow = 1
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.CutCopyMode = False
old = Timer

For i = 1 To 100

Cells(FoundRow + i, 1).Cut Cells(FoundRow + i, 2)

Next
MsgBox Timer - old & " Sec"
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

below is more faster than use "Cut" or "Copy" method.

Sheet2.Range("B1:B10").Value= Sheet1.Range("A1:A200").Value
Sheet1.Range("A1:A200").ClearContents