Adding text to columns

Hello

I am wiriting a VBA macro, to consolidate text into columns. This text is pasted from a pdf file , and is entered into column A, from here I would like the macro to seperate this into columns. The realy problem I have is that i do not know how to tell the macro to seperate text and numbers, also each pdf file has slightly different lenghts of words or numbers

Example below

Any help would be brilliant!