Dim DestCell as range
dim testrng as range
set testrng = yourfindhere(...)

if testrng is nothing then
'do nothing
else
with activesheet
set destcell = .cells(.rows.count,testrng.column).end(xlup).offse t(1,0)
end with

something.copy _
destination:=destcell
end if



Kigol wrote:

I use Cells.Find to locate a column. How do I select a certain range
within the column of the found range?

'-------------------Here is the dumbed down version of the code:
Set testrng = Cells.Find(What:="Selections",
After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole,
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not testrng Is Nothing Then
Selection.copy

I know this selects the whole column:

testrng.EntireColumn.Copy

I want to be able to do this:

Range(testrng.column & "65536").end(xlup).
(offset(1,0).copy '(or paste)

--

Dave Peterson