RunTime Error 2147417848 -Method insert of object Range Failed

Hi,
When running below Code in my excel sheet , Error message >> Run time error 214741848 (80010108) >> Method "Insert" of object "Range" failed.
Please help

Sub Copy_Insert_Row_nTime()
Dim x As Integer
  x = Application.InputBox("INSERT NUMBER", "INSERT NUMBER", Type:=1)
  If x = False Then Exit Sub
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1), ActiveCell.Offset(x)).EntireRow.Insert
    Application.CutCopyMode = False
End Sub