Excel VBA row to column : I want to trim my excel data from single row to multiple row using vba, after trying many tricks from other source, still no luck, so i open topic here hope someone will help me with vba script

My Input data (Column A1):

[Input][1]
I wish my output (Column C1 and D1)
[Output][2]


Someone help please


  [1]: https://i.stack.imgur.com/mTUgp.png
  [2]: https://i.stack.imgur.com/Pss2z.png