ThisWorkbook.Worksheets(2).Activate
Range(
"G2:G300"
).
Select
Selection.Cut
Range(
"B2:B300"
).
Select
Selection.Insert Shift:=xlToRight
Range(
"B2:B300"
).ClearContents
Range(
"X2:X300"
).
Select
Selection.Cut
Range(
"D2:D300"
).
Select
Selection.Insert Shift:=xlToRight
Range(
"X2:X300"
).
Select
Selection.Cut
Range(
"E2:E300"
).
Select
Selection.Insert Shift:=xlToRight
Range(
"J2:J300"
).
Select
Selection.Cut
Range(
"F2:F300"
).
Select
Selection.Insert Shift:=xlToRight
Range(
"N2:N300"
).
Select
Selection.Cut
Range(
"G2:G300"
).
Select
Selection.Insert Shift:=xlToRight
Range(
"H2:H300"
).
Select
Selection.Insert Shift:=xlToRight
Range(
"P2:P300"
).
Select
Selection.Cut
Range(
"I2:I300"
).
Select
Selection.Insert Shift:=xlToRight
Range(
"J2:J300"
).
Select
Selection.Insert Shift:=xlToRight
Range(
"K2:K300"
).
Select
Selection.Insert Shift:=xlToRight
Range(
"L2:L300"
).
Select
Selection.Insert Shift:=xlToRight
Range(
"Q2:Q300"
).
Select
Selection.Cut
Range(
"M2:M300"
).
Select
Selection.Insert Shift:=xlToRight
Range(
"O2:AW300"
).ClearContents