The trick here is that to define the range you need two points, being the
diagonal corners of the range. The range A1:N100 is the exact same range as
A100:N1... So the range could be defined as

with sheets("Sheet1")
.range(.range("A1").end(xlRight), .range("A1").end(xldown))
end with
--
HTH...

Jim Thomlinson


"Pele" wrote:

I am hoping somebody can help me write code that will allow me to copy a
range of variable length.

I have a spreadsheet that will possibly have data from column A to N. While
cells in Column A will ALWAYS have data up to the last row in Column A, the
other cells in other columns could be blank.

I need to copy the data from A1 to the end of column A and across to the
last cell in column N.

Here is my lame attempt at a code and it didn't work. Any help will be
appreciated.

Pele


Worksheets(q).Range(("A1")).End (xlDown),
Range(("A1")).End(xlDown).End(xlRight).Copy