Copy to last line (cel) of data

[jaycee]

I am using Excel 2003.

I want to select and copy data using a macro but only want to select upto and including the last line of data,
could be one line could be 200 lines.

I am using the following at the moment.

Sub RangeSelect()
ActiveSheet.Range("a100:h100", ActiveSheet.Range("a100:h100").End(xlDown)).Select
Selection.Copy
End Sub

But this selects lines after the last line of data.

Any help would be great.

 

[Trevor G]

What if you did it from the bottom and looked to select upwards.

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A65000").Select
    Selection.End(xlUp).Select
    Range(Selection, Selection.End(xlUp)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
End Sub

 

[jaycee]

Hi Trevor

Many thanks for the reply, but it appears that my original works, as long as I have something in column A, which is what it is based on anyway.

Thanks
Jaycee