Listelenmiş Değerler arasında boşluk

[imdatsaral]

Selam Arkadaşlar,
Ekteki dosyada Litelenmiş değerler arasında bir boşluk bırakamıyorum örneğin DR733 ile DR815 ile DR731 arasında boşluk olmasını istiyorum. Style için satır sayısı standart değil. Bu listede bir Style de olabiliyor beş tanade olabiliyor
yardımcı olursanız sevinirim

VBA şifresi: ",,"

 

[imdatsaral]

Sub Makro1()
For i = [A3500].End(3).Row To 2 Step -1
If Cells(i - 1, "A") <> Cells(i, "A") Then
Rows(i).EntireRow.Insert
End If
Next
End Sub

Arkadaşlar yukarıdaki kodları 10 cu satırdan başlatmak mümkünmü?

 

[dEdE]

For i = [A3500].End(3).Row To [COLOR="Red"]2[/COLOR] Step -1

Bu satırdaki 2 sayısını 10 yapın.

 

[imdatsaral]

dEdE teşekkür ederim