Copy row VBA getting mismatch error

Hi All

I am getting a mismatch error when I run this code. Basically I just want to be able to insert a new row and have existing formulas, formatting copied, which works pretty well, but I now get a mismatch error with some other code. How do I resolve this?

Sub InsertRow()

With ActiveCell.EntireRow
    .Copy
    .Offset(1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    On Error Resume Next
    .Offset(1).SpecialCells(xlCellTypeConstants).Value = ""
    Application.CutCopyMode = False
    On Error GoTo 0
    End With


End Sub

This is the error; runtime error 13

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("Q11:Q500")) Is Nothing Then
      Call NoSpace
    End If
    
    If Not Intersect(Target, Range("I11:I500")) Is Nothing Then
        If Target.Value = 0 And Range(Target.Address).Offset(0, -5) <> "" Then Target.Value = 1
    End If
    
    If Not Intersect(Target, Range("J11:J500")) Is Nothing Then
        If Target.Value = 0 And Range(Target.Address).Offset(0, -6) <> "" Then Target.Value = 1
    End If
    
    If Not Intersect(Target, Range("M11:M500")) Is Nothing Then
        If Target.Value = 0 And Range(Target.Address).Offset(0, -9) <> "" Then Target.Value = 1
    End If
    
    
    
End Sub

Thanks
Isacael