Assuming your source data starts at A1, put the formula below into the first
Cell where you want to tranfer data.
then, copy it three cells left and again copy that range down to where you
want.
if your data start elsewhere, change the first arguments in OFFSET, in this
case $A$1, to the cell in your case.

=OFFSET($A$1,((3*ROW(A1)+COLUMN(A1)-4)/18),MOD((3*ROW(A1)+COLUMN(A1)-4),18))

if you prefer using a macro to a formula, try this one.
Assuming your source data start at A1 in Activesheet, and destination starts
at A2 in the worksheet named Sheet2.
if this is not your case, change the code Set start = Cells(1, "A") and Set
dst = Worksheets("Sheet2").Cells(2, "A") below according to your case.

Sub mytest()
Dim start As Range
Dim tmp As Range
Dim dst As Range
Const count = 3 'Number of Cells in one set
Const columncount = 18 'Number of columns in a row

'start is a first Cell where your first data in a group is populated
Set start = Cells(1, "A")
'dst is a first Cell where your data in a group is transfered
Set dst = Worksheets("Sheet2").Cells(2, "A")

Do While (start <> "")
   Set tmp = start
   For i = 1 To columncount / count
       dst.Resize(1, count) = tmp.Resize(1, count).Value
       Set tmp = tmp.Offset(0, count)
       Set dst = dst.Offset(1, 0)
   Next i
   Set start = start.Offset(1, 0)
Loop
End Sub

keiji

OK, that's much more clear than your initial post.

I am assuming that the data really IS 18 cells across, as I am only seeing 16
in what you've posted.  But you can always change the formula below
appropriately.

1.  I NAME'd the data table Tbl.
2.  In some cell, enter this formula:

=INDEX(Tbl,INT((ROWS($1:1)-1)/18)+1,MOD(ROWS($1:1)-1,18)+1)

Fill down as far as required.  You'll start to get #REF errors when you have
gone far enough.  If that will be a problem, you can always do a TEST to
prevent it:

=IF(ROWS($1:1)>COUNTA(Tbl),"",
INDEX(Tbl,INT((ROWS($1:1)-1)/18)+1,MOD(ROWS($1:1)-1,18)+1))

--ron