Sub NewOrder()
Dim I As Integer
Dim J As Integer
Dim K As Integer
K=1
For I=1 To 3
For J=1 To 6
Sheet1.Cells(K,1)=Sheet2.Cells(I,J)
K=K+1
Next J
Next I
End Sub
-------------
Sub DOrder()
Dim I As Integer
Dim J As Integer
Dim K As Integer
K=1
For I=1 To 3
For J=1 To 6
Sheet2.Cells(I,J)=Sheet1.Cells(K,1)
K=K+1
Next J
Next I
End Sub
Dim I As Integer
Dim J As Integer
Dim K As Integer
K=1
For I=1 To 3
For J=1 To 6
Sheet1.Cells(K,1)=Sheet2.Cells(I,J)
K=K+1
Next J
Next I
End Sub
-------------
Sub DOrder()
Dim I As Integer
Dim J As Integer
Dim K As Integer
K=1
For I=1 To 3
For J=1 To 6
Sheet2.Cells(I,J)=Sheet1.Cells(K,1)
K=K+1
Next J
Next I
End Sub