create macro to copy paste many rows at once

AS Richard says you need to explain more about No7 but see if this helps 1 to 6.

Select the row first

With Selection
        .Copy
        .Offset(1, 0).Insert Shift:=xlDown
        .Offset(1, 0).PasteSpecial Paste:=xlPasteValues
        .Font.ColorIndex = 2
End With
    Application.CutCopyMode = False

VBA Noob