Morning Bob
Thanks for the help
Will try this as well as Dave's code this morning will let u know the result
Ajay

"Bob Umlas" wrote:

VBA comes to the rescue:

Sub Xfer()
'Untested
for i=1 to 2000
Range("A1:T100").cells(i) = range("A1:B1000").cells(i)
Next
End Sub

Bob Umlas
Excel MVP

I'm leading a FREE 1-hour online Webinar on Excel Tips & Tricks.
Dec 16, Jan 14, Jan 27 from 4-5PM (each session is the same).
If interested, go to http://www.iil.com, click on the yellow/orange
"Try a free webinar" link on the left side, click the Microsoft Excel
Tips & Tricks link, follow instructions to register.


"Ajay" wrote in message
...
Gday
Is it possible to transfer data from two columns 1000+ cells in each into
a
table 10 x 20 ie A1:B1000 change to A1:T100 so it becomes simpler to view
and
print?
Thankyou again
Ajay