<div>
How about<br />
&nbsp; &nbsp;Range(&quot;B:B&quot;).Find(&quot;*Date*&quot;<wbr />, , xlValues, xlWhole, , , False).Copy
</div>


How about
   Range("B:B").Find("*Date*", , xlValues, xlWhole, , , False).Copy

<div>
Qlemo, thanks but yours only seems to copy the cell with the date
</div>


Qlemo, thanks but yours only seems to copy the cell with the date

<div>
<div class="content wysiwyg-content">
Select a range of cells from the current/active cell<br />
<br />
Would appreciate help on selecting a range of cells.<br />
<br />
I am saying:<br />
<br />
Range(&quot;B:B&quot;).Find(&quot;*Date*&quot;<wbr />, , xlValues, xlWhole, , , False).Select<br />
<br />
Then I want to select all non blank cells from wherever the active cell is.<br />
<br />
I have tried <br />
<br />
ActiveCell.CurrentRegion.C<wbr />opy but if there is a blank row it stops at that row.<br />
<br />
<br />
I use Range(Range(&quot;A2&quot;), Cells.SpecialCells(xlCellT<wbr />ypeLastCel<wbr />l)).Select<wbr /> when I know the cell to start from but in this case I don't<br />
<br />
Appreciate any assistance.<br />
<br />
Thanks
</div>
</div>


Select a range of cells from the current/active cell

Would appreciate help on selecting a range of cells.

I am saying:

Range("B:B").Find("*Date*", , xlValues, xlWhole, , , False).Select

Then I want to select all non blank cells from wherever the active cell is.

I have tried 

ActiveCell.CurrentRegion.Copy but if there is a blank row it stops at that row.


I use Range(Range("A2"), Cells.SpecialCells(xlCellTypeLastCell)).Select when I know the cell to start from but in this case I don't

Appreciate any assistance.

Thanks

Select a range of cells from the active cell

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.