Sub Raw_Mat()
'
' Macro2 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:J").Select
    Selection.Delete Shift:=xlToLeft
    Columns("G:I").Select
    Selection.Delete Shift:=xlToLeft
    Columns("K:M").Select
    Selection.Delete Shift:=xlToLeft
    Columns("O:R").Select
    Selection.Delete Shift:=xlToLeft
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Stye Code"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "Style Name"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "Biz"
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "Y/S"
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "Status"
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "Qty(pcs)"
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "Plan ID"
    Cells.Select
    Selection.Columns.AutoFit
    Range("A1").Select
    ActiveWorkbook.Save
End Sub
