How can I copy a select range of cells in a column based on the selected column to the column directly next to the selected column with VBA

Question

For example

Column A has 10 rows, When I select column A, I want the formulas in rows 2,3,4,7 and 9 to copy to column B. Same for Column B, C and so on.