vba macro

[disha]

Hi I am new to VBA can anyone tell me what the following code mean.
Thanks

Columns("A:A").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight
Range("A1").Select
ActiveCell.FormulaR1C1 = "Edit"
Columns("B").Select
Selection.Delete Shift:=xlToLeft
Selection.ColumnWidth = 34.29
Selection.ColumnWidth = 27.29
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
Columns("U:U").Select
Selection.Cut Destination:=Columns("C:C")
Columns("C:C").Select
Selection.ColumnWidth = 23.86
Columns("E:E").Select
Selection.Insert Shift:=xlToRight
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 23
Columns("AE:AE").Select
Selection.Cut Destination:=Columns("E:E")
Range("B1").Select
ActiveCell.FormulaR1C1 = "Event"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Venue"
Range("D1").Select
ActiveCell.FormulaR1C1 = "EventDate"
Range("E1").Select
ActiveCell.FormulaR1C1 = "EventTime"
Columns("F:G").Select
Selection.Delete Shift:=xlToLeft
Range("F1").Select
ActiveCell.FormulaR1C1 = "Quantity"
Columns("H:I").Select
Selection.Delete Shift:=xlToLeft
Columns("H:I").Select
Selection.Delete Shift:=xlToLeft
Columns("H:H").Select
Selection.Delete Shift:=xlToLeft
Range("H1").Select
ActiveCell.FormulaR1C1 = "Row"
Range("I1").Selec

 

[Don Guillett]

It means it has a lot of un-necessary coding (from recording) and that it is
setting up some column widths, moving some columns and setting some column
labels. Why?

 

[Bob Phillips]

It's just a formatting macro that was recorded using the macro recorded,
hence all of the fluff.

It can be reduced to

Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight
Range("A1").Value = "Edit"
Columns("B").Delete Shift:=xlToLeft
Selection.ColumnWidth = 34.29
Selection.ColumnWidth = 27.29
Columns("C:C").Insert Shift:=xlToRight
Columns("U:U").Cut Destination:=Columns("C:C")
Columns("C:C").ColumnWidth = 23.86
Columns("E:E").Insert Shift:=xlToRight
Columns("AE:AE").Cut Destination:=Columns("E:E")
Range("B1").Value = "Event"
Range("C1").Value = "Venue"
Range("D1").Value = "EventDate"
Range("E1").Value = "EventTime"
Columns("F:G").Delete Shift:=xlToLeft
Range("F1").Value = "Quantity"
Columns("H:I").Delete Shift:=xlToLeft
Columns("H:I").Delete Shift:=xlToLeft
Columns("H:H").Delete Shift:=xlToLeft
Range("H1").Value = "Row"
Range("I1").Select