Hi everyone,

I have a large Excel file that I need to append to. I want to append to
the first blank row in Column A. How do I do that? My script's below:

Range("A1").Select 'to select
column A
Range(Selection, Selection.End(xlDown)).Select 'to goto last row w/
data
???????????? 'move one
row down???


--
ledzepe
------------------------------------------------------------------------
ledzepe's Profile: http://www.excelforum.com/member.php...o&userid=25207
View this thread: http://www.excelforum.com/showthread...hreadid=568025

Range("A1").End(xlDown).Select

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"ledzepe" wrote in
message ...

Hi everyone,

I have a large Excel file that I need to append to. I want to append to
the first blank row in Column A. How do I do that? My script's below:

Range("A1").Select 'to select
column A
Range(Selection, Selection.End(xlDown)).Select 'to goto last row w/
data
???????????? 'move one
row down???


--
ledzepe
------------------------------------------------------------------------
ledzepe's Profile:
http://www.excelforum.com/member.php...o&userid=25207
View this thread: http://www.excelforum.com/showthread...hreadid=568025

xlDown will stop at the first blank cell.

OK if you know there are no intervening blank cells.

The preferred method is to work from bottom up.

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


Gord Dibben MS Excel MVP

On Thu, 3 Aug 2006 13:30:23 -0400, ledzepe
wrote:


Hi everyone,

I have a large Excel file that I need to append to. I want to append to
the first blank row in Column A. How do I do that? My script's below:

Range("A1").Select 'to select
column A
Range(Selection, Selection.End(xlDown)).Select 'to goto last row w/
data
???????????? 'move one
row down???