How to copy the data from one sheet to another sheet

[hongwei]

I want to copy data from another worksheet.
Example:
copy N3,N4,N5 of sheet2 to L3,L4,L5 of sheet 1
next step will be,
copy O3,O4,O5 of sheet2 to L6,L7,L8 of sheet 1
the same pattern continue...
another says i want to copy every 3 lines of one column in sheet2 and move to another column and copy another 3 lines and go on. The destination will be at one column in sheet1.
i have hundreds lines of data to be copied, i dont want to do it manually. Anyone has any ideas ?

 

[offthelip]

try this:

Sub test2()
With Worksheets("Sheet2")
lastcol = .Cells(5, .Columns.Count).End(xlToLeft).Column
inarr = .Range(.Cells(1, 1), .Cells(7, lastcol))
End With
With Worksheets("Sheet1")
 outarr = .Range(.Cells(1, 12), .Cells(lastcol * 3, 12))
ix = 3
For i = 14 To lastcol
  For j = 5 To 7
   outarr(ix, 1) = inarr(j, i)
   ix = ix + 1
  Next j
Next i
.Range(.Cells(1, 12), .Cells(lastcol * 3, 12)) = outarr

 
End With
End Sub