Macro - copy and insert multiple rows

After the row is inserted, do you want the data from columns A to G to be copied to the inserted row along with the corresponding start and end date?

And then do you want the data to be cleared from the start and end date column in the original row?

Sorry - i didnt see your 2nd tab showing the required output -Try this code

Option Explicit

Sub create_rows()
Dim i As Long, lrow As Long, lcol As Long, j As Long

Application.ScreenUpdating = False

With Worksheets(1)
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = lrow To 2 Step -1
        lcol = .Range("IV" & i).End(xlToLeft).Column
        For j = 10 To lcol Step 2
            .Rows(i + 1).Insert
            .Range("A" & i & ":G" & i).Copy .Range("A" & i + 1)
            .Range(.Cells(i, j), .Cells(i, j + 1)).Copy .Range("H" & i + 1)
            .Range(.Cells(i, j), .Cells(i, j + 1)).ClearContents
        Next j
    Next i
End With

MsgBox "Done"

Application.ScreenUpdating = True

End Sub

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste

To run the Excel VBA code:
Choose View | Macros
Select a macro in the list, and click the Run button

Try this code

Option Explicit

Sub create_rows()
Dim i As Long, lrow As Long, lcol As Long, j As Long

Application.ScreenUpdating = False

With Worksheets(1)
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = lrow To 2 Step -1
        lcol = .Range("IV" & i).End(xlToLeft).Column
        For j = 9 To lcol Step 3
            .Rows(i + 1).Insert
            .Range("A" & i & ":H" & i).Copy .Range("A" & i + 1)
            .Range(.Cells(i, j), .Cells(i, j + 2)).Copy .Range("I" & i + 1)
            .Range(.Cells(i, j), .Cells(i, j + 2)).ClearContents
        Next j
    Next i
End With

MsgBox "Done"

Application.ScreenUpdating = True

End Sub