Help with Non Contiguous Row Ranges

Hi All,

I've got the following code in use:

BookLastrow = Range("A3").End(xlDown).Row
DVDLastrow = Range("A739").End(xlDown).Row

'More Code yadayadayada

Set ALLISBN = Range("A3:A & BookLastrow, A739:A & DVDLastrow")

However I am getting a run time error 1004. Basically to cut a long story short I'm trying to future proof the macro so when people insert rows into the workbook the macro will handle it without me hard coding the different absolute references.

The absolute cell references as they are at the current time are:

Set ALL ISBN Range("A3:A736, A739:A1023")

I can get

Set ALLISBN = Range("A3:A & BookLastrow, A739:A & DVDLastrow")

to work only if I add speech marks to for example:

("A3:A" & Booklastrow, "A739:A" & DVDLastrow)

However the above also gives the cells inbetween e.g. A736 to A739 when I run the code through (which is not what I want). It's hopefully just a syntax thing if anyone can help?

Thanks

Chriz