Breaking up a cell containing many countries into individual country cells

Hi. How do I break up a cell that contains multiple country listing into one cell for each country. Pls see attach example. I receive A1. I need C3:C7. VBA codes appreciated. Thanks!

hi grumpyguppy, please check attachment, press Run button

Option Base 1
Sub test()
arr = Application.Transpose(Split(Range("a1"), Chr(10)))
Range("c3").Resize(UBound(arr)) = arr
End Sub

Thanks. It works!