Need macro to copy and insert row below active cell

[Savuti]

Hello folks, I have posted what I have manged to piece together. The macro does copy row 6 and insert it below the cell in D column that has the word "OK" in it. At some point I need to delete an entire row when the word "NO" is entered in a cell in D column. I need help setting up the delete part of the macro.
With the curent macro if I delete a row then I get a run time error 13 - Type mismatch. Can you please help with this.

Private Sub Worksheet_Change(ByVal Target As Range)
   Application.EnableEvents = False
   Application.ScreenUpdating = False
    If ((Target.Value = "OK") And (Target.Column = 4)) Then
   
       Rows("6:6").Select
       Selection.Copy
   
        Target.Offset(1, 0).EntireRow.Insert
        Application.CutCopyMode = False
       Range("B2").Select
       
    End If
    Application.ScreenUpdating = True
    Application.EnableEvents = True
  End Sub

 

[Savuti]

Maybe I need a new macro altogether. I have tried a few variations of what I have with no luck. Really need help with this - thanks

 

[Savuti]

Had to bump this to the top, does what I am asking make sense, I don't believe this is too complicated but I simply cannot get this to work.

 

[Savuti]

Please ignor the macro I have include at the top of this thread. What I am looking for is VBA code to do the following: when the word "OK" is entered into a cell in column D then row 6 is copied and inserted below the cell with the word "OK".

I have tried a few variations and connot get this. Thanks