Select next blank row in table of data

[adam2308]

In the attached example, I have a rather large table of data and I want to add a button to the top of the worksheet that when I press it, the code find the first blank cell in column B and selects that cell. I have found code that can do this (albeit slow to execute for some reason) but I also want the screen to refocus to that cell.

Here is the code I currently have:

Application.ScreenUpdating = False
Dim r1 As Range, r2 As Range

Set r1 = Intersect(Range("B4:B65000"), Cells.SpecialCells(xlCellTypeBlanks))
Set r2 = Cells(Rows.Count, "B").End(xlUp).Offset(1, 0)
If r1 Is Nothing Then
r2.Select
Else
r1(1).Select
End If
Application.ScreenUpdating = True

[Bishonen]

range("B4").end(xldown).offset(1,0).activate

should do the job