Creating an excel worksheet VA code

Question

I am trying to create a macro in which I want to delete and cut some values and then paste that values in next cell.
e.g.

 A                                    
----                                  
apple, fruit

After macro execution

 A          B                               
----       --- 
apple      fruit

How could I make such macro for an lengthy list?

Answer 1

If you want to make some columns from one column in Excel follow this:

At first select all cells you want to split them.

In Data tab One of tools listed in Data Tools section is text to Columns.

After selecting that, a wizard window will show.

Select Delimited option, and Next.
Select Comma check, and Finish.

---

If you need a macro for it use Macro Recorder.

Answer 2

You could try this:

Sub cutAndPaste()
'
' cutAndPaste Macro
'
'
Dim Column_index As Integer
Dim Row_index As Integer
Column_index = 5
Row_index = 7

Cells(Row_index + 1, Column_index).Value = Cells(Row_index, Column_index).Value
Cells(Row_index + 1, Column_index + 1).Value = Cells(Row_index, Column_index + 1).Value
Cells(Row_index, Column_index).Value = ""
Cells(Row_index, Column_index + 1).Value = ""

End Sub

I think it works, hope be helpful.