Insert number of rows by a number in the cell

Hello gurus,

Sorry if something similar has been answered here already - I tried to search for it but I did not succeed.

Let's keep it very simple: I have a number (1, 2, 3, 4, ..., n) and based on this number I need to insert number of rows. (Number "5" in Sheet1.Range(A1) => Insert 5 new rows in Sheet2 from Rows(20:20). Number "8" in Sheet1.Range(A1) => Insert 8 new rows in Sheet2 from Rows(20:20). Number "15" => insert 15 new rows etc.)

Does it make sense?

Thank you.

Filip

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    If Target <> vbNullString Then
        With Sheets("sheet2")
            .Range("A20").Resize(Target.Value).EntireRow.Insert
        End With
    End If
End If
End Sub

Kind regards
Leo