Macro - move to next empty cell in a column

[vorvick]

Hi All,

I've done some searching and while the answer may already be posted I don't have the backround to understand it. Thought I'd give this a try though.

In columnA I want to jump to the next blank cell in a list that continues to grow. So the first time I run the macro I want to go (blank) cell A5 to paste in some data. The next time I run it, it would need to go to cell A6 and so on.

When I do this manually, I simply hit ctrl down-arrow (takes me to the last cell w/data) and then one more down-arrow to take me to the empty cell below.

When I do this in the macro it seems to remeber the cell as an absolute reference (if that's the term) and so it just copies info in the same location as previous, instead of the next empty cell.

Any help would be appreciated,

PV

 

[VoG]

This would select the first empty cell

Range("A" & Rows.Count).End(xlUp).Offset(1).Select

but you shouldn't need to Select. You could use code like

Range("B7").Copy Destination:=Range("A" & Rows.Count).End(xlUp).Offset(1)

 

[BlckNGldHwk]

Range("A:A").Find("").Select

 

[vorvick]

Thanks VoG and BlkNGldHwk, I'll look into this.

 

[jomish]

Find("") - is there are way of stopping once it stops finding blanks as comes up with an error message?

 

[Joe4]

Find("") - is there are way of stopping once it stops finding blanks as comes up with an error message?

It looks like you have asked that question elsewhere and got it answered. Please take care not to post the same question multiple times, as per forum rules, posts of duplicate nature are typically locked or deleted.

Thanks

 

[secoo140]

absolutely grreat.

[COLOR=#333333]Range("A" & Rows.Count).End(xlUp).Offset(1).Select[/COLOR]

works like charm

 

[Shazz]

Hi All,

Could someone tell me how I go about using this code as I want to be able to go to the first blank cell in colum A and enter data, but not sure how I used it.

I am very new to formulas and codes.

Thanks

Shazz