Hi Al,

Assume data starts in A1 and that there is a blank row below, and a blank
column to the right, of the data, then your data can be defined by:

ActiveSheet.Range("A1").CurrentRegion

---
Regards,
Norman



"AMK" wrote in message
...
I have a worksheet where the number of rows and columns vary each time I
process the data.
I want to transpose the cols and rows but need to set the range before I
copy. There may not be any data in the XY cell. Is there a way to do this
in
a macro?
Thanks for any help.
--
Al