如何在Excel VBA脚本中增加单元格？

I have a data in excel which I want to make a VBA script to copy it into a new worksheet but in a different way. For example, I have this in sheet1 in A1~A3 cells.I have a data in excel which I want to make a V