Help with Vba code.

[jaymack]

Need help in turning a manual process into a automated method using a vba
code

I need a code to firstly delete column B and C, then add a column into Column B, then one right of C,D,E,F and G

Then to copy Cell C9 into all available cells in Column B and D9 into

 

[Logit]

What is meant by :

add a column into Column B

You cant add a column inside another.

 

[Skyybot]

Try this on a copy of your Workbook.

Option Explicit

Sub ArrangeSheet()
Dim i As Long
With Range("B:C")
    .Delete
End With
For i = 8 To 2 Step -1
    Columns(i).Insert
Next i
End Sub

 

[MARK858]

@Skyybot I think you'll need to change 8 to 7 (do the task the OP did in post 1 up to and including the inserting a column after selecting column B, highlight a cell in column G and add some data in columns H and I, then insert another column into column B so you have 2 blank columns for the initial delete, then run the code and check where the last column has been inserted compared to the highlighted cell)

Obviously you can't code for the last part of the question as the question is incomplete

 

[Skyybot]

@MARK858 , I tried 7 first but the result did not match what I think OP is looking for even though the request is incomplete. After the delete of B:C I assumed that there could be data in column H and beyond.

 

[MARK858]

They have inserted a column already into B so column G would be as below

Book1
	A	B	C	D	E	F	G	H	I
1	Order ID		SP Name	Category Name	Ship Via	Quantity	Order Total	bbn	mmmm
2	108-5-N72		Steven Buchanan	Meat/Poultry	Air	10	459.7848
3	105-13-F35		Margaret Peacock	Seafood	Air	10	206.6136
4	106-1-N88		Margaret Peacock	Beverages	Road	14	564.4026
5	109-12-N44		Michael Suyama	Dairy Products	Road	5	150.1038
6	110-23-N46		Laura Callahan	Beverages	Sea	18	432.5616
Sheet5

So you would be starting with

Book1
	A	B	C	D	E	F	G	H	I	J
1	Order ID	Initial delete	Initial delete	SP Name	Category Name	Ship Via	Quantity	Order Total	bbn	mmmm
2	108-5-N72	Initial delete	Initial delete	Steven Buchanan	Meat/Poultry	Air	10	459.7848
3	105-13-F35	Initial delete	Initial delete	Margaret Peacock	Seafood	Air	10	206.6136
4	106-1-N88	Initial delete	Initial delete	Margaret Peacock	Beverages	Road	14	564.4026
5	109-12-N44	Initial delete	Initial delete	Michael Suyama	Dairy Products	Road	5	150.1038
6	110-23-N46	Initial delete	Initial delete	Laura Callahan	Beverages	Sea	18	432.5616
Sheet5

 

[Skyybot]

Let's assume the following original layout

Book1
	B	C	D	E	F	G	H	I	J	K	L	M	N
1	Col1	Col2	Col3	Col4	Col5	Col6	Col7	Col8	Col9	Col10	Col11	Col12	Col13
Sheet1

In my mind this is what OP is looking for.

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O
1	Col1		Col4		Col5		Col6		Col7		Col8		Col9		Col10
Sheet1

 

[MARK858]

Following the OP's instructions
Your start data

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N
1	Col0	Col1	Col2	Col3	Col4	Col5	Col6	Col7	Col8	Col9	Col10	Col11	Col12	Col13
Sheet5

firstly delete column B and C

Book1
	A	B	C	D	E	F	G	H	I	J	K	L
1	Col0	Col3	Col4	Col5	Col6	Col7	Col8	Col9	Col10	Col11	Col12	Col13
Sheet5

then add a column into Column B

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M
1	Col0		Col3	Col4	Col5	Col6	Col7	Col8	Col9	Col10	Col11	Col12	Col13
Sheet5

then one right of C,D,E,F and G

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R
1	Col0		Col3		Col4		Col5		Col6		Col7		Col8	Col9	Col10	Col11	Col12	Col13
Sheet5

 

[Skyybot]

I see it now. So my original thought was correct and over-thinked it. That was one of the reasons I was a bad test taker.

 

[MARK858]

I see it now. So my original thought was correct and over-thinked it. That was one of the reasons I was a bad test taker.

I wouldn't say that yet as the OP hasn't responded, with the question being incomplete and no sample data either of us might be right or both totally wrong