Sub IkiBosSatirEkle()
Dim sonSatir As Long
Dim i As Long
sonSatir = Cells(Rows.Count, 3).End(xlUp).Row
For i = sonSatir To 2 Step -1
If Not IsEmpty(Cells(i, 3)) Then
Rows(i + 1 & ":" & i + 2).Insert Shift:=xlDown
End If
Next i
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.