' Using the Active Cell
Sub NextBlankCellOnRow()
Dim rCell As Range
Dim ws As Worksheet
Set ws = ActiveSheet
Set rCell = ActiveCell
If rCell.Offset(0, 1) = "" Then
rCell.Offset(0, 1).Select
Else
rCell.End(xlToRight).Offset(0, 1).Select
End If
End Sub
' Specifying the starting cell
Sub NextBlankCellOnRow_SpecifiedCell()
Dim rCell As Range
Dim ws As Worksheet
Set ws = Worksheets(1)
Set rCell = ws.Cells(2, "A")
If rCell.Offset(0, 1) = "" Then
rCell.Offset(0, 1).Select
Else
rCell.End(xlToRight).Offset(0, 1).Select
End If
End Sub