Hello,

Im trying to write a simple macro that determines the bottom end of a
collumn of data, and then down drops down one more row to a blank space.
This would be useful for a situation when you want to tack on more info in a
collumn where you dont necessarily know where the previous list of data ends.

For example I know:

Selection.End(xlDown).Select

this will get me to the last item in a list of data, but not to the next
blank row

How do I tell it (in a macro) to skip down one more space?

Please email me at: (E-Mail Removed)

Thank you
Richard S

you can try this, but selecting is not a good practice

Selection.End(xlDown).Offset(1).Select

--


Gary


"Macro-Challenged" <Macro-(E-Mail Removed)> wrote in message
news:14D45FF1-0C3F-4966-8F81-(E-Mail Removed)...
> Hello,
>
> Im trying to write a simple macro that determines the bottom end of a
> collumn of data, and then down drops down one more row to a blank space.
> This would be useful for a situation when you want to tack on more info in a
> collumn where you dont necessarily know where the previous list of data ends.
>
> For example I know:
>
> Selection.End(xlDown).Select
>
> this will get me to the last item in a list of data, but not to the next
> blank row
>
> How do I tell it (in a macro) to skip down one more space?
>
> Please email me at: (E-Mail Removed)
>
> Thank you
> Richard S
>

Using Selection.End(xlDown).Select is fine as long as there is data in every
cell in the column. If you there is a chance for a blank or two in the
column the maybe this would be better to get you there:

ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select

Replace the 1 in Cells(Rows.Count, ?) with the column number or letter you
want to end up in. If you use the letter, be sure to enclose it in quote
marks.

"Macro-Challenged" wrote:

> Hello,
>
> Im trying to write a simple macro that determines the bottom end of a
> collumn of data, and then down drops down one more row to a blank space.
> This would be useful for a situation when you want to tack on more info in a
> collumn where you dont necessarily know where the previous list of data ends.
>
> For example I know:
>
> Selection.End(xlDown).Select
>
> this will get me to the last item in a list of data, but not to the next
> blank row
>
> How do I tell it (in a macro) to skip down one more space?
>
> Please email me at: (E-Mail Removed)
>
> Thank you
> Richard S
>