Excel VisualBasic Script

Sub rowRange()
    MsgBox Sheets("Sheet1").range("A1:F3").row
End Sub