1)Group1 and group2 should have the same extension.
If cnt > r Then Cells(Columns("ad").Find("group 4").Row - 7, "x").Resize(cnt - r + 1, 8).Insert Shift:=xlDown
2）If there is nothing under group3 and group4, you can simplify the code.
1)Group1 and group2 should have the same extension.
If cnt > r Then Cells(Columns("ad").Find("group 4").Row - 7, "x").Resize(cnt - r + 1, 8).Insert Shift:=xlDown
2）If there is nothing under group3 and group4, you can simplify the code.
Posting Permissions
Reply With Quote