Sub Macro1()
'
' Macro1 Macro
'
'
Columns("F:I").Select
Selection.EntireColumn.Hidden = True
Range("J2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-7]="""","""",(IF(ISNUMBER(SEARCH(""Chef One"",RC[-7])),""CO"",IF(ISNUMBER(SEARCH(""TMI:Japanese Ware:"",RC[-7])),""Trading"",IF(ISNUMBER(SEARCH(""Other Trading Items"",RC[-7])),""Trading"",IF(ISNUMBER(SEARCH(""Misc.:"",RC[-7])),""Trading"",IF(ISNUMBER(SEARCH(""Tang's Natural-Appetizer"",RC[-7])),""CO"",IF(ISNUMBER(SEARCH(""Wonton"",RC[-7])),""CO"",IF(ISNUMBE" & _
"(""Bun"",RC[-7])),""CO"",IF(ISNUMBER(SEARCH(""Wrapper"",RC[-7])),""TM-Wrapper"",IF(ISNUMBER(SEARCH(""Noodle"",RC[-7])),""TM-Noodle"",IF(ISNUMBER(SEARCH(""TM:C Noodle"",RC[-7])),""TM-Noodle"",IF(ISNUMBER(SEARCH(""TM:123 Noodle"",RC[-7])),""TM-Noodle"",IF(ISNUMBER(SEARCH(""TM:C Wrapper"",RC[-7])),""TM-Wrapper"",IF(ISNUMBER(SEARCH(""TM:123 Wrapper"",RC[-7])),""TM- Wrap" & _
"ISNUMBER(SEARCH(""TM:Tang's Natural & Wrapper"",RC[-7])),""TM- Wrapper"",IF(ISNUMBER(SEARCH(""Charge"",RC[-7])),""Other Charge"",IF(ISNUMBER(SEARCH(""Packaging"",RC[-7])),""Other Charge"",IF(ISNUMBER(SEARCH(""discount"",RC[-7])),""Sales discount"",IF(RC[-7]=""Sample"",""Other Charge"",IF(ISNUMBER(SEARCH(""NYS Sales Tax"",RC[-7])),""Other Charge"",""Trading""))))))))" & _
"))))"
Range("J2").Select
Selection.Copy
Range("J3:J1400").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A3").Select
End Sub
Bookmarks