Sub PO_List()
'
' Macro1 Macro
'

'
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    Columns("E:E").Select
    Selection.Delete Shift:=xlToLeft
    Columns("G:I").Select
    Selection.Delete Shift:=xlToLeft
    Columns("G:I").Select
    Selection.Delete Shift:=xlToLeft
    Columns("L:L").Select
    Selection.Delete Shift:=xlToLeft
    Columns("M:N").Select
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.SmallScroll ToRight:=3
    Columns("R:R").Select
    Selection.Delete Shift:=xlToLeft
    Columns("S:T").Select
    Selection.Delete Shift:=xlToLeft
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Sample Code"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "BIZ"
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "Season"
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "Status"
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "Qty(pcs)"
    Range("M1").Select
    ActiveCell.FormulaR1C1 = "Plan ID"
    Cells.Select
    Selection.Columns.AutoFit
    Range("A1").Select
End Sub
