Find end of column with blanks vba

[ryancgarrett]

How do I find the last cell in a column that has a value when there are blanks in the data set? I need to leave a blank row and then add more each time. This is my code currently, which only finds the first blank in the list.

eRow = Sheets("Journal").Cells(2, 2).End(xlDown).Row + 2

 

[VoG]

Try

eRow = Sheets("Journal").Range("B" & Rows.Count).End(xlUp).Row + 2

 

[Trevor G]

Aim to go near the bottom of your sheet first then use XLUP

range("B65536").select
Selection.End(xlUp).Select

 

[ryancgarrett]

Thanks guys, both answers were helpful. VoG, your code worked perfectly!