Yes, to insert 3 blank rows, change the 'resize' value:

        Cells(l, 1).Offset(1, 0).Resize(3).EntireRow.Insert