Satır eklemek

Merhaba arkadaşlar ListBox'da seçtiğim satırın altına tek bir tane boş satır eklemek istiyorum. Aşağıdaki kod ile yapmaya çalışıyorum. Boydan boya satır eklemiyor sadece seçtiğim satırdaki A hücresini bir aşağıya kaydırıyor. Bu konuda yardım ederseniz sevinirim.

Private Sub CommandButton5_Click()
Dim SatirNo As Integer
KolonNo = 2
SatirNo = ListBox1.ListIndex
Selection.Insert Shift:=xlDown
End Sub

Arkadaşlar sorunumu halettim.