VBA code to add blank lines to data

[Excelpromax123]

Hello everyone. I have a table of data stored in groups (about 100 groups). 1 group consists of 3 columns and 5 rows. Now I want a group to increment by 2 rows. my data involves a lot of formulas so i can't insert blank lines manually. I need the code to do that. Sincerely thank ( The image below I framed for easy understanding. But I don't need to frame )

 

[rollis13]

Have a try with my macro to be copied into a standard module and adjust sheet name and ranges:

Option Explicit
Sub InsertRows()
    Dim lr     As Long
    Dim x      As Long
    Dim y      As Long
    Application.ScreenUpdating = False
    With ThisWorkbook.Worksheets("Foglio1")       'adjust sheet name as suited
        lr = .Range("B" & Rows.Count).End(xlUp).Row 'find last row of groups
        For x = lr To 6 Step -5                   'loop to first row of first group from last row
            With .Range("B" & x & ":D" & x)       'applies to columns B to D
                For y = 1 To 2                    'add 2 rows and copy/paste formulas
                    .Cells.Copy
                    .Cells.Insert Shift:=xlDown
                Next y
                Application.CutCopyMode = False
            End With
        Next x
    End With
    Application.ScreenUpdating = True
End Sub

 

[rollis13]

Thanks for the positive feedback, glad having been of some help.