Format a table into two columns

[Sabakarp]

I have a data table as shown below:

1	a	6	f	11	k
2	b	7	g	12	l
3	c	8	h	13	m
4	d	9	i	14	n
5	e	10	j	15	o​

What I need to do is take all the numbers and but them in one column and all the letter in a adjacent column. As shown below:

1	a
2	b
3	c
4	d
5	e
...	...

Any help would be appreciated!

 

[Peter_SSs]

See if this does what you want. Test with a copy of your workbook.

Sub Rearrange()
  Dim c As Long
  
  For c = 3 To Cells(1, Columns.Count).End(xlToLeft).Column Step 2
    Cells(1, c).Resize(Cells(Rows.Count, c).End(xlUp).Row, 2).Cut Destination:=Cells(Rows.Count, 1).End(xlUp).Offset(1)
  Next c
End Sub

 

[Sabakarp]

See if this does what you want. Test with a copy of your workbook.

Sub Rearrange()
  Dim c As Long
 
  For c = 3 To Cells(1, Columns.Count).End(xlToLeft).Column Step 2
    Cells(1, c).Resize(Cells(Rows.Count, c).End(xlUp).Row, 2).Cut Destination:=Cells(Rows.Count, 1).End(xlUp).Offset(1)
  Next c
End Sub

That works perfectly! Thank you!

 

[Peter_SSs]

You're welcome. Thanks for the confirmation.