My data is As follows:
1 2 3 4 5 6 7 8 9 10 11 14 20 1 2 3 4 5 6 7 8 9 10 12 13 14 16 1 2 3 4 5 6 7 8 9 10 12 13 20 1 2 3 4 5 6 7 8 9 10 15 22
1
2
3
4
5
6
7
8
9
10
11
14
20
I have applied this through a code Option Explicit
Sub Convert()

Dim myArr As Variant
Dim myCell As Range

Set myCell = Application.InputBox("Please select a range of cells!", _
"SelectARAnge Demo", Selection.Address, , , , , 8)

myArr = Split(Application.Trim(myCell.Value), " ")

myCell.Offset(1, 0).Resize(UBound(myArr) - LBound(myArr) + 1, 1).Value _
= Application.Transpose(myArr)

End Sub

I want it to be applied on all the cells
PLs help