Çözüldü Seçilen Alanda Boş Satır Ekleme

İyi günler...
Aşağıdaki kod ile iki boş satır ekleyebiliyorum. Fare ile seçtiğim alana (örn: B10:B30 arası) eklemek için kod nasıl olmalı?

Sub iki_Bos_Satir_Ekle()
Dim X As Long, Son As Long
Son = Cells(Rows.Count, 1).End(3).Row + 1
For X = Son To 2 Step -1
Range("A" & X & ":A" & X + 1).EntireRow.Insert
Next
End Sub