If your data is an column A starting at Cell A1, then the following
formula, entered in Cell B1 and filled across 7 columns and down 200
rows will produce 7 columns of 200 rows.  Any more than 1400 original
rows, you do the math and make alterations.

=INDIRECT("A"&(ROW()+(COLUMN()-2)*200))

The 2 refers to the column of Cell B1; if you're putting the formula in
a different column, use the appropriate number for that column.

Copy>Paste Special(in place) the results then delete the original column A.

VBA Macro to snake the columns top to bottom...1 to 50 down then 51 to 100
down

Public Sub SplitToCols()
   Dim NUMCOLS As Integer
   Dim i As Integer
   Dim colsize As Long
   On Error GoTo fileerror

   NUMCOLS = InputBox("Choose Final Number of Columns")
   colsize = Int((ActiveSheet.UsedRange.Rows.Count + _
           (NUMCOLS - 1)) / NUMCOLS)
   For i = 2 To NUMCOLS
       Cells((i - 1) * colsize + 1, 1).Resize(colsize, 1).Copy Cells(1, i)
   Next i
   Range(Cells(colsize + 1, 1), Cells(Rows.Count, 1)).Clear
fileerror:
End Sub

Gord Dibben Excel MVP