There are a couple of ways to wrap the text.

Try this and see if it is what you need.

Snakes three columns to nine columns.

Public Sub Snake3to9()
Dim myRange As Range
Dim colsize As Long
Dim maxrow As Long
Const numgroup As Integer = 3
Const NUMCOLS As Integer = 9
   On Error GoTo fileerror
   colsize = Int((ActiveSheet.UsedRange.Rows.Count + _
           ((NUMCOLS - 1)) / NUMCOLS)) / numgroup
   MsgBox "Number of Rows to Move is: " & colsize
   Range("A1").Select
   With ActiveCell.Parent.UsedRange
       maxrow = .Cells(.Cells.Count).Row + 1
   End With
   ActiveCell.Parent.Cells(maxrow, ActiveCell.Column) _
           .End(xlUp).Offset(1, 0).Select
   Set myRange = Range(ActiveCell.Address & ":" _
           & ActiveCell.Offset(-colsize, (numgroup - 1)).Address)
   myRange.Cut Destination:=ActiveSheet.Range("A1").Offset(0, _
   (NUMCOLS - numgroup))
   Range("A1").Select
   Cells.End(xlDown).Offset(1, 0).Select
   Set NextRange = Range(ActiveCell.Address & ":" _
           & ActiveCell.Offset(-colsize, (numgroup - 1)).Address)
   NextRange.Cut Destination:=ActiveSheet.Range("A1").Offset(0, _
   (NUMCOLS / numgroup))
   Application.CutCopyMode = False
   Range("A1").Select
fileerror:
End Sub

Gord Dibben  MS Excel MVP