Private Sub CommandButton1_Click()MsgBox Selection.Row + Selection.Rows.Count - 1End Sub
Selection.Item(Selection.Count).Row
