How to copy/insert new row into worksheet?

Hello,

I'm using this macro-code to insert new rows into worksheet

Sub insertrow()
ActiveSheet.Unprotect
With Rows(6)
    .Copy
    .Insert 'the copy will be put in the newl;y created row
    Range("D6").ClearContents
End With
Application.CutCopyMode = False
ActiveSheet.Protect
End Sub

It copies row 6 and inserts it down to row 7.

I need to modify this code so that it copies both row 6 and row 7 and then inserts copies down to rows 8 and 9, or something like that. Rows 6 and 7 needs to be copied and new copies needs to be inserted below. is this possible??

Thanks in advance!