Hi.. we need an urgent solution for this error code 1004:macro application-defined or object-defined error. Here is our macro details:

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

This macro work fine in an excel, but not after we save it. Please help.