I need to copy relevant information from an invoice across the page to named
cells, and have the information move down a line each time, can anyone help
me with the correct code. I have the code from an older version of Excel
which works fine, but 2003 does not like it. HELP!!!!
This is the old code:-

clearsht (a)
=FORMULA.GOTO("Start")
=FORMULA.GOTO("invoice")
=COPY()
=FORMULA.GOTO("fst")
=PASTE.SPECIAL(3,1,FALSE,FALSE)
=FORMULA.GOTO("date")
=COPY()
=FORMULA.GOTO("sec")
=PASTE.SPECIAL(3,1,FALSE,FALSE)
=FORMULA.GOTO("Job_Site")
=COPY()
=FORMULA.GOTO("trd")
=PASTE.SPECIAL(3,1,FALSE,FALSE)
=FORMULA.GOTO("gst")
=COPY()
=FORMULA.GOTO("forth")
=PASTE.SPECIAL(3,1,FALSE,FALSE)
=FORMULA.GOTO("invoice_total")
=COPY()
=FORMULA.GOTO("fth")
=PASTE.SPECIAL(3,1,FALSE,FALSE)
=FORMULA.GOTO("fst")
=COPY()
=FORMULA.GOTO("num")
=PASTE.SPECIAL(3,1,FALSE,FALSE)
=FORMULA.GOTO("gst")
=CLEAR(1)
=FORMULA.GOTO("Job_Site")
=CLEAR(1)
=FORMULA.GOTO("date")
=CLEAR(1)
=FORMULA.GOTO("fst")
=DELETE.NAME("fst")
=DELETE.NAME("sec")
=DELETE.NAME("trd")
=DELETE.NAME("forth")
=DELETE.NAME("fth")
=DELETE.NAME("sixth")
=SELECT("R[1]C[0]")
=DEFINE.NAME("fst")
=SELECT("R[0]C[1]")
=DEFINE.NAME("sec")
=SELECT("R[0]C[1]")
=DEFINE.NAME("trd")
=SELECT("R[0]C[1]")
=DEFINE.NAME("forth")
=SELECT("R[0]C[1]")
=DEFINE.NAME("fth")
=SELECT("R[0]C[1]")
=DEFINE.NAME("sixth")
=SELECT("R[0]C[1]")
=FORMULA.GOTO("start")
=RETURN()