Hi
try something like
sub foo()
dim lastrow as long
Dim firstrow as long
Dim rng as range

with activesheet
lastrow = .Cells(Rows.Count, 1).End(xlUp).Row -1
firstrow = 2
set rng = .range("A" & firstrow & ":A" & lastrow)
msgbox rng.address
end with
end sub

--
Regards
Frank Kabel
Frankfurt, Germany


JUAN wrote:
Hello,
I have a few reports appended in one excel sheet. I want
to be able to select the specific range of one report and
cut so that I can paste into either new sheet or workbook.
Example, Column A contains the report name and at end
contains the total
Line items (Report name)
Data
Total Line Items (end of report
So would like to select this portion.
Hope I'm making sense. Please advise any info.

Thanks,

Juan