Insert Multiple Rows

[Edman]

Hi all,

I need to make the following code insert more than one row. How can I modify the code to insert 2 or 3 or 4, etc rows?

FinalRow = Cells(Rows.Count, 3).End(xlUp).Row
For x = FinalRow To 5 Step -1
If Cells(x, "A").Value <> Cells(x + 1, "A").Value Then Rows(x + 1).Insert
Next x

Thanks in advance for your help

 

[hiker95]

Edman,

Sample raw data:

Excel 2007
	A	B	C
5	5	5	5
6	6	6	6
7	7	7	7
8	8	8	8
9	9	9	9
10	10	10
11
Sheet1

After the macro for inserting 2 rows:

Excel 2007
	A	B	C
5	5	5	5
6
7
8	6	6	6
9
10
11	7	7	7
12
13
14	8	8	8
15
16
17	9	9	9
18
19
20	10	10
21
Sheet1

See the 2 in the code:

Option Explicit
Sub Test()

Dim FinalRow As Long, x As Long

FinalRow = Cells(Rows.Count, 3).End(xlUp).Row
For x = FinalRow To 5 Step -1
  If Cells(x, "A").Value <> Cells(x + 1, "A").Value Then Rows(x + 1).Resize(2).Insert
Next x

End Sub