How can I split a collumn of numbers into sets of 3

dipshay17 

VBA code and it leaves original data intact...

VBA code...

'---

Sub StartMeUp()
Call BunchAndMove(3)
End Sub

'Transposes every lngStep rows into single adjacent row
Function BunchAndMove(lngStep As Long) As Byte
'Nothing Left to Lose -April 2009, August 2013, October 2022
Dim rngToMove As Excel.Range
Dim N As Long
Dim M As Long
Dim rCol As Long

Application.ScreenUpdating = False
Set rngToMove = Selection.Columns(1).Cells
rCol = 1
For N = 1 To rngToMove.Count Step lngStep
M = M + 1
With rngToMove.Parent
.Range(rngToMove.Cells(M, rCol + 1), rngToMove.Cells(M, rCol + lngStep)).Value = _
Application.WorksheetFunction.Transpose(rngToMove(N).Resize(lngStep, 1).Value)
End With
Next 'N
Application.ScreenUpdating = True
Set rngToMove = Nothing
End Function

'---

Nothing Left to Lose

https://1drv.ms/u/s!Au8Lyt79SOuhZw2MCH7_7MuLj04?e=sAwbHU

(free excel programs)