Next Blank Cell in a Row

[nniedzielski]

I am looking to dump numerous rows of data into an excel sheet and want to find code that will find the next empty cell in Column B.

I cant seem to find a simple solution utilizing a FinalRow type code.

Does anyone have a simple and easy way for finding this?

thanks,

 

[mumps]

This will give you the row below the last used cell in column B:

Cells(Rows.Count, "B").End(xlUp).Offset(1, 0)

 

[njimack]

Cells(Rows.Count,2).End(xlUp).Offset(1)

 

[nniedzielski]

both of these lines of code give me a syntax error and the bottom on says Expected =

 

[njimack]

Please post the code you're using.

 

[nniedzielski]

I am using this:

Dim Lastrow as Long
Lastrow = Cells(Rows.Count, 1).End(xlUp).Row

It is however not actually selecting the cell.

 

[njimack]

Is that all of your code? Which line generates an error?
Oh, and change the 1 (for column A) to 2 (column B)

 

[gallen]

That's because your code isn't selecting anything, it is just determining the next empty cell's row number and storing it in a variable.

To select the next cell it would be something like:

Range("B" & [COLOR=#333333]Cells(Rows.Count, 2).End(xlUp).Row).Select[/COLOR]

 

[njimack]

...although you don't need to select cells if you're simply copying and pasting