Answer hasn't changed from the last time you asked it.

Range(Range("A8"),Cells(Rows.count,"A").End(xlup)) .Resize(,21)

--
Regards,
Tom Ogilvy


"Martyn" wrote in message
...
I have incoming emails which use an excel spreadsheet. I
need to set up a macro to extract all the populated cells
information and export to another excel file. I then use
information for printing labels so if there are loads of
blank entries then i have loads of wasted labels.
Unfortunately the first 8 columns down (A:U/1:8) are all
taken by a company logo. Is there a way to just get the
information (A:U/8:?) If not, does anyone know the code to
extract just populated cells and i will have to lose the
logo.
Many thanks