Selecting a cell in a range

[Coolboy55]

I want to select the first cell in an empty row in my range. How do I correct my code? Thanks!

----------

l_LastRow = Sheet5.Cells.Find(What:=" * ", After:=[A1], _ SearchDirection:=xlPrevious).Row
Sheet5.Range("B3", Sheet5.Cells(l_LastRow + 1, 10)).Select

For l_Count = Selection.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Selection.Rows(l_Count)) = 0 Then
With Range(Cells(Selection.Rows(l_Count), 2).Address)
.Value = 2005
End With
End If
Next