ChDir "D:GARY"
Workbooks.OpenText Filename:="D:GARYIGX.DAT", Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:="`", FieldInfo:=Array(Array(1, 1 _
), Array(2, 2), Array(3, 2), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 2), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1))
Columns("J:J").Select
Selection.Insert Shift:=xlToRight
ActiveWindow.Zoom = 75
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "FR"
Range("B1").Select
ActiveCell.FormulaR1C1 = "REGION"
Range("C1").Select
ActiveCell.FormulaR1C1 = "CUSTOMER"
Range("D1").Select
ActiveCell.FormulaR1C1 = "NAME"
Range("E1").Select
ActiveCell.FormulaR1C1 = "ADDRESS"
Range("F1").Select
ActiveCell.FormulaR1C1 = "ENT-BY"
Range("G1").Select
ActiveCell.FormulaR1C1 = "SO"
Range("H1").Select
ActiveCell.FormulaR1C1 = "SLS"
Range("I1").Select
ActiveCell.FormulaR1C1 = "CST"
Range("J1").Select
ActiveCell.FormulaR1C1 = "MARGIN"
Range("K1").Select
ActiveCell.FormulaR1C1 = "ST"
Range("L1").Select
ActiveCell.FormulaR1C1 = "DEPT-CD"
Range("M1").Select
ActiveCell.FormulaR1C1 = "DATE"
Range("N1").Select
ActiveCell.FormulaR1C1 = "REP"
Range("O1").Select
ActiveCell.FormulaR1C1 = "REP NAME"
Columns("O:O").Select
Columns("O:O").EntireColumn.AutoFit
Columns("N:N").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Rows("1:1").Select
Range("C1").Activate
Selection.Font.Bold = True
Selection.Font.Underline = xlUnderlineStyleSingle
Columns("H:I").Select
Selection.Style = "Comma"
Range("J2").Select
ActiveCell.FormulaR1C1 = "=1-(RC[-1]/RC[-2])"
Range("J2").Select
Selection.Style = "Percent"
Selection.NumberFormat = "0.0%"
Selection.AutoFill Destination:=Range("J2:J67"), Type:=xlFillDefault
Range("J2:J67").Select
Columns("A:M").Select
Columns("A:M").EntireColumn.AutoFit
ActiveWindow.SmallScroll ToRight:=5
Columns("N:O").Select
Columns("N:O").EntireColumn.AutoFit
Range("A1").Select