Copy Until Blank

[Alec]

I have a sheet where the number of rows may vary in a
range, I need to copy this range to another sheet. But I
cannot find any function that will give me the first empty
row in a range, or empty cell in a column.

Any help would be appreciated.

Thanks
Alec

 

[Mike Fogleman]

Activesheet.UsedRange.Copy

Mike

 

[Alec]

Thanks for your reply Mike:

However I do not want to copy the whole used range, but a
number columns within that range.

 

[Don Guillett]

Does this help?

x=cells(65536,"a").end(xldown).row
y=cells(1,"IV").end(xltoright).column

 

[Alec]

Thanks Don;

The End statement works fine.

-----Original Message-----

Does this help?

x=cells(65536,"a").end(xldown).row
y=cells(1,"IV").end(xltoright).column




.

 

[Don Guillett]

Actually, the y one is incorrect

y=cells(1,"IV").end(xltoright).column
y=cells(1,"IV").end(xltoLEFT).column OR
y=cells(1,1).end(xltoright).column