Inserting 6 blank rows automatically between groups of data

[bran987]

Hello everyone

I'm wondering how to automatically insert blank rows based on this:

I have company names, about 50. There is about 2,000 lines of data after it's all sorted

So it will be like:

----------------

Microsoft
Microsoft
Microsoft
Apple
Apple
Apple
Apple
Yahoo
Yahoo
Yahoo
Yahoo

----------------

If the company names are say... in Row Q, how would I automatically insert 6 blank rows at the point where the company names changes?

Thanks so much guys.

 

[Paddy1979]

Hi there,

Try

Sub test()

Dim i as Long

For i = Range("Q65334").End(xlUp).Row To 2 Step -1
   If Cells(i, "Q").Value <> Cells(i - 1, "Q").Value Then
     Rows(i & ":" & i + 6).Insert
   End If
Next i


End Sub

 

[bran987]

That is incredible! How did you do that so fast? Thank you! I only wish I knew where to begin learning things like that.

 

[Paddy1979]

Cheers

I've learned all i know of this msg board. There are some real gurus on here, to pick up things from.