Delete rows after row number from input box

[bchaabi]

I want to type a number into an input box and delete everything after that row. This is what I have so far but I am getting errors on row 7


1 Sub CutList()
2
3 Dim i As Variant
4 i = InputBox("What size do you want the list to be?")
5
6 With ActiveSheet
7 Rows(i & .Rows.Count).Delete
8 End With
9
10 End Sub

 

[davesexcel]

Sub CutList()
    Dim i As Long, sh As Worksheet
 
    Set sh = ActiveSheet
 
    With sh
        i = InputBox("What size do you want the list to be?")
        .Range("A" & i + 1 & ":A" & .Cells(.Rows.Count, "A").End(xlUp).Row).EntireRow.Delete
    End With

End Sub

 

[bchaabi]

Thank you so much!