Sorry, I missed you wanted this on another sheet

Sub RearrangeData()
Dim v(1 to 18) as double
Dim i as Long, cell as Range
Worksheets("Sheet1").Activate
i = 1
for each cell in Range("A1:B9")
v(i) = cell.value
i = i + 1
Next
With Worksheets("Sheet2").Range("A1").Resize(1,18)
.Value = v
.Numberformat = "#.00"
End With
End Sub

--
Regards,
Tom Ogilvy


"Tom Ogilvy" wrote:

Sub RearrangeData()
Dim v(1 to 18) as double
Dim i as Long, cell as Range
i = 1
for each cell in Range("A1:B9")
v(i) = cell.value
i = i + 1
Next
With Range("A1").Resize(1,18)
.Value = v
.Numberformat = "#.00"
End With
Range("A2:B9").ClearContents
End Sub

--
Regards,
Tom Ogilvy


"Bhupinder Rayat" wrote:

Hi All,

86.00 88.00
73.00 75.00
84.50 86.50
112.50 114.50
81.25 83.25
112.00 114.00
86.00 88.00
52.50 54.50
64.00 66.00

I have this block of data in sheet1 (i.e. A1 = 86, B1 = 88, A2 = 73, B2 = 75
etc...),

and I want to paste all this data in the first row of sheet2, so I have a
continuous line of data.

E.g 86 would go in A1, 88 in B1, 73 in C1, 75 in D1 and so on...

Is this possible to do using some sort of loop in VBA?

Many Thanks,

Bhupinder.