Insert multiple rows to when data is different in columns

**jak73** · 11-06-2014, 06:54 PM

I have 11 columns with headers. I need to insert three rows when data in columns B and C are different. Example:

Column B has a date, Column C has country code

DATE COUNTRY
9/16/2014 MAYS
9/16/2014 MAYS
9/16/2014 MAYS
9/16/2014 INDI
9/16/2014 INDI

I need the macro to insert 3 rows between the date and country

DATE COUNTRY
9/16/2014 MAYS
9/16/2014 MAYS
9/16/2014 MAYS

9/16/2014 INDI
9/16/2014 INDI

I will have a spreadsheet of multiple dates and countries in Column B and C, so need to insert rows then upon selecting macro

**MarvinP** · 11-06-2014, 07:04 PM

Hi jak and welcome to the forum,

It is normally a bad idea to insert blank rows or columns in a table. What are you trying to get for your answer. I'd expect there is a better way to get an answer without needing to insert blank rows. If you can attach a sample workbook and show what you have and what kind of answer you want, it would be much more help for us and you.

**jak73** · 11-06-2014, 07:41 PM

Hi Marvin,

I am using this macro

Sub InsertRowAtChangeInValue()
Dim lRow As Long
For lRow = Cells(Cells.Rows.Count, "C").End(xlUp).Row To 2 Step -1
If Cells(lRow, "C") <> Cells(lRow - 1, "C") Then Rows(lRow).EntireRow.Insert
Next lRow
End Sub

However, I have to run it twice and then delete rows 2-4 manually, otherwise it works perfect.

Basically, I need to insert the three rows, then add 4 columns to the end with specific headers. After that, I then subtotal amounts for each group in columns K and O.