On 6/18/2016 11:21 PM, ANG wrote:
10001031 BISCUIT TUC NATURE 100G Ea BEACH SHOP -6 Transfer material between subinventories 3435516 is in cell A1
Formulas/results have to be in cell B1,C1,D1,E1,....etc
Thxs

Dim strArray() As String, strTest as string
'assign the text in cell A1 to the strTest variable
strArray = Split(strTest, " ")
'split strTest into StrArray elements using two spaces as the delimiter
'now assign the elements of the array to the cells you want.

Will that work for you?