Hi,

I'm pretty sure that this is an easy topic but I have been looking all
over for a way to do this and cannot find it.

I am copying data from one spreadsheet to another and I asking the
Macro to find a certain title in the first spreadsheet and then select
and copy the following 10 cells down.

I currently have in:

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

but the problem is that there is a blank row in the range I'm trying to
copy and therefore each time I run this command it only goes down by
two cells instead of ten. And I'm unable to select a cell reference ie
("A1:A10").select as the infomation could be in different cells each
time I run the code.

Any advice would be much appreciated.

Thanks

hi,
try something like this...
Range(Selection, Selection.offset(10,0)).Select

lookup the offset property in vb help for more info.

regards
FSt1

" wrote:

Hi,

I'm pretty sure that this is an easy topic but I have been looking all
over for a way to do this and cannot find it.

I am copying data from one spreadsheet to another and I asking the
Macro to find a certain title in the first spreadsheet and then select
and copy the following 10 cells down.

I currently have in:

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

but the problem is that there is a blank row in the range I'm trying to
copy and therefore each time I run this command it only goes down by
two cells instead of ten. And I'm unable to select a cell reference ie
("A1:A10").select as the infomation could be in different cells each
time I run the code.

Any advice would be much appreciated.

Thanks

How 'bout:

Sub Macro1()
' Macro1 Macro
' Macro recorded 9/6/2006 by Jim May
'
ActiveCell.Range("A1:A10").Select
End Sub

Jim


" wrote in message
ups.com:

Hi,

I'm pretty sure that this is an easy topic but I have been looking all
over for a way to do this and cannot find it.

I am copying data from one spreadsheet to another and I asking the
Macro to find a certain title in the first spreadsheet and then select
and copy the following 10 cells down.

I currently have in:

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

but the problem is that there is a blank row in the range I'm trying to
copy and therefore each time I run this command it only goes down by
two cells instead of ten. And I'm unable to select a cell reference ie
("A1:A10").select as the infomation could be in different cells each
time I run the code.

Any advice would be much appreciated.

Thanks