改良してみた。

あまりにも繰り返しが多いので改良してみたり。
いちいちセレクトするから重いことに変わりなし（＾＾；

Sub data_exch()
'
' data_exch Macro

Dim i, j, k, l, m, n, o As Integer
i = 2: j = 1
'コピー元行（１、２、３、４、５，６，７、、、、EOL）
'コピー元列（１固定）
k = 2: l = 2
'ペースト先行（１、２、３、４、５，６，７、、、、EOL）
'ペースト先列（２固定）
m = 0
'データ行カウント
n = 0

Do
n = n + 1
o = 0

Do
Cells(i + o, j).Select
Application.CutCopyMode = False
Selection.Copy
Cells(k, l + o).Select
ActiveSheet.Paste
Selection.NumberFormatLocal = "0.000_ "
o = o + 1
Loop Until o = 8

Cells(i, j).Select
Selection.ClearContents
Range(Cells(i + 1, j), Cells(i + 7, j)).Select
Selection.Delete Shift:=xlUp

i = i + 1
k = k + 1

Loop Until n = 750

End Sub