Soru Belirli Aralıklar İle Sütündaki Satırlara Boşluk Ekleme

[skaan]

Merhaba;

Excel sayfamda aşağıya doğru giden verilerim bulunmakta. Sayfamdakı sütunlara aşağı doğru 13 Adet satır sayıldıktan sonra Satıra bir boşluk eklemek
istiyorum. Boşluktan sonra yine 13 Adet satır sayılmalı ve bir boşluk eklenmeli.. Bu şekilde devam etmeli..Bu konuda yardımcı olabilirmisiniz..
Hayırlı günler dilerim.

Saygılarımla;
SKaan

 

[turist]

Sub satirekle()
For i = 15 To 65500 Step 14
If Cells(i, "A") <> "" Then Cells(i, "A").EntireRow.Insert
Next i
End Sub

Kodu sayfanızdaki verilere uygun şekilde düzenleyip kullanabilirsiniz.

 

[skaan]

Merhaba;
Sayın turist yardımınız ve desteğiniz için teşekkür ederim.
Hayırlı günler dilerim.

SKaan

 

[turist]

Merhaba;
Sayın turist yardımınız ve desteğiniz için teşekkür ederim.
Hayırlı günler dilerim.

SKaan

Sağ olun, iyi çalışmalar.