Try

Range(ActiveCell, ActiveCell.End(xlDown)).Select


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"strung" <strung.1xlx2g_1130493926.7915@excelforum-nospam.com>
wrote in message
news:strung.1xlx2g_1130493926.7915@excelforum-nospam.com...
>
>> Chip Pearson Try
>> ActiveCell.Resize(num_rows,num_columns).Select
> I don't understand where I can put the 33 cells I need to copy
> ------------------------------------------------------------------------------>
>> bpeltzer
>> Range(Selection, Selection.Offset(0, 1)).Select 'shift-right.
> The line of code goes to Red and won't work.
> ------------------------------------------------------------------------------>
> The issue is this,
> The macro does a Find for a particular word in the worksheet.
> That particular word (Text) is the title of what the contents
> are in
> each of the 33 cells below it.
> But it (Title) does not always start in the same cell, so I
> can't use
> the Cell Range code constantly.
>
>
> Once I Find the Title, then I would normaly do a Shift
> _Arrow-Key_Down
> and then copy the entire contents of those 33 Cells, manually.
> That's why I cannot use a Cell Range code.
>
> So it's basicaly: Macro finds the Title,
> Then: Selection.Offset(1, 0).Select '*Down*
> Then: Select the entire cell range below the title to Copy
> I can make it do everything except select the entire range of
> upto 33
> Cells below Title.
>
>
> Example.
> Title
> 1
> 2
> 3
> 4
> 5
> 6
> 7
> 8
> 9
> 10
> 11
> 12
> 13
> 14
>
> Hope this makes sense
>
>
> --
> strung
> ------------------------------------------------------------------------
> strung's Profile:
> http://www.excelforum.com/member.php...o&userid=24731
> View this thread:
> http://www.excelforum.com/showthread...hreadid=479980
>