New to VBA, simple copy and paste range of cells based on input box, NEED HELP

Option Explicit

Sub HowmanyGDAs()
Dim QtyEntry As Integer
Dim Msg As String

Msg = "How Many GDAs did you do?"
QtyEntry = InputBox(Msg)
    
Dim lNR As Long, i As Long

For i = 1 To QtyEntry - 1
    lNR = Range("A" & Rows.Count).End(xlUp).Row + 2
    Range("A7:H20").Copy
    Range("A" & lNR).PasteSpecial xlPasteAll
Next 'i
    
End Sub