質問: シート1にあるデータをシート2に切り取りで移動させたいです。その際、A列はF列、 B列はD列、C列はK列のように並び替えをしたいです。
回答: 書式が必要なかったら値で転記してシート1はまとめてクリアすれば数十倍速いです。 シート2への書き込みは上書きでいいですね。 Sub test() Dim C As Variant, D As Variant, i As Long C = Array("F", "D", "K") With Sheets("シート1") For i = 1 To 3 D = .Range(.Cells(1, i), .Cells(Rows.Count, i).End(xlUp)).Value Sheets("シート2").Cells(1, C(i - 1)).Resize(UBound(D)) = D Next '.Columns("A:C").Clear End With End Sub クリアのところはコメントにしてあります。