VBA SIMPLE - Inserting Partial Row based on text in a specified column

[traderjoe]

Hi,

I'm new to writing macros and I'm getting stuck on how to insert partial rows using macro script.
What I am trying to do is
- Insert cells/partial row in Columns D and E, and shift the rest of the data down if Column G contains the text "DUP"

' QAQCRowInsert Macro

Dim c As Range
For Each c In Range("G1:G99999")
If c.Value Like "DUP" Then
c.Offset(1, 0).EntireRow.Insert
End If
Next c
End Sub

This is the macro I currently have, can someone please help me edit it so that instead of entering an entire row, cells are only inserted in columns D and E

Many Thanks!!

 

[JoeMo]

Maybe:

Sub Tjoe()
Dim c As Range
For Each c In Range("G1:G" & Cells(Rows.Count, "G").End(xlUp).Row)
    If c.Value Like "*DUP*" Then
        c.Offset(1, -3).Resize(1, 2).Insert shift:=xlDown
    End If
Next c
End Sub