Dim LRw As Long
Dim rng As Range
Dim i As Long
Application.ScreenUpdating = False
LRw = Cells(Rows.Count, 1).End(xlUp).Row - 38
For i = LRw To 4 Step -39
Set rng = Union(Cells(i + 9, 1), Cells(i + 23, 1), Cells(i + 24, 1), _
Cells(i + 32, 1), Cells(i + 36, 1), Cells(i + 39, 1))
Set rng = Nothing
Application.ScreenUpdating = True
I tried this code. But the new rows are inserted at the wrong places. My first row (or first customer) starts at row4, 2nd starts at row 43, 82 and so on. (everyone customer has 39 rows).
For my first customer, I need to insert new rows at row 13, 23, 28, 36,40 and 43. For my second customers, new rows need to be inserted at 13+39, 23 +39.....43+39.
Not sure if this helpful, but there might be a empty space at row 13, 23, or 28. Because other columns at row 13, 23 or 28 might have data in them, I am trying to insert a row so.. all columns are empty.