Forms VisualBasic Script

Sub count()
    cells(Rows.count, 1).End(xlUp).Select
End Sub