Problem med fejl i kode til sletning af linier

Jeg har noget kode der sletter to linier i et ark via. en listbox: lstKortType og en knap: cmdSLET

Private Sub cmdSLET_Click()
Dim i As Integer
Dim sletdata As String
    A = ActiveSheet.Name
    i = lstKortType.ListIndex + 1
    sletdata = LTrim(Str(Int(i + 7))) + ":" + LTrim(Str(Int(i + 7)))
    Rows(sletdata).Select
    Selection.Delete Shift:=xlUp
    Rows(sletdata).Select
    Selection.Delete Shift:=xlUp
    Range("B11").Select
frmslet.Hide
End Sub

Private Sub UserForm_Activate()
With lstKortType
.RowSource = "SLET2"
.ListIndex = 0
End With
End Sub

men da hver 2 linie står tom i listboxen, vil jeg skjule dem med koden herunder:

Private Sub UserForm_Activate()
With lstKortType
    lstKortType.Clear
  For Each c In ActiveSheet.[SLET2]
        If c > "" Then lstKortType.AddItem c
    Next c
  .ListIndex = 0
End With
End Sub

problemet er nu at cmdSLET_Click() ikke længere virker korekt (den sletter ikke det man vælger i listboxen; "sletdata" skal nok skrives om)

nogen der har et forslag?