Ünvan Değiştiğinde Boş Satır Yaratsın..

[oburs]

Herkese selam
Benim sorunum hakkında bir sayfa var idi fakat bulamadım,mecburen yardımlarınızı istiyorum.
bir listem var bu listede her firma adı değiştiğinde aralarına bir satır boşluk yapsın..
yardımlarınız için teşekkürler..

 

[veyselemre]

[vb:1:da606fd56f]Sub satirekle()
bson = [b65536].End(3).Row
For x = bson To 5 Step -1
If Cells(x, 2) <> Cells(x - 1, 2) Then Rows(x).Insert
Next x
End Sub[/vb:1:da606fd56f]