how to extract letters from text and paste them in new row with macro?

Hi to all

i would like to extract letters from text and paste them in new rows one below the other. my data looks like this
My data
1 2 3 4 5
1 A/C A/A G/G C/C T/T
2 A/A T/T A/C T/C G/C

and i would like to do like this
expected
1 A A G C T
1 C A G C T
2 A T A T G
2 A T C C C

I used trim and substitute functions but i am unable to complete my task. I am requesting help fro you people. your help will always be appreciated
Thanks in advance

Hi
try this macro - you will need to set InRange to the range of cell to parse, and Outcell to the address of the first cell of your output values

Please Login or Register  to view this content.

Assuming the data starts from A1

Please Login or Register  to view this content.

Dear JinDon
Thanks for your reply and your code working like miracle.
@nickyC I am getting some error and A/A this type of text is not splitting some times with your code, anyway once again thanks lot for your help.
Regards,