Macro to add a row after each companies data?

[tonywatsonhelp]

Hi everyone,
I have a sheet that has lots of data in it.
There are lots of row for the same company so i sort the sheet so all the company data from lots of rows is toghther.
I like a macro that can insert a row in my data between the companies so i can easily see the companies data toghther.

the company names are all in Column J and start from row 10.

please help if you can

thanks

Tony

 

[Fluff]

How about

Sub tonywatson()
   Dim Cl As Range, Rng As Range
   
   For Each Cl In Range("J11", Range("J" & Rows.Count).End(xlUp))
      If Cl <> Cl.Offset(-1) Then
         If Rng Is Nothing Then Set Rng = Cl Else Set Rng = Union(Rng, Cl)
      End If
   Next Cl
   If Not Rng Is Nothing Then Rng.EntireRow.Insert
End Sub