delete button bit

Private Sub cmdDelete_Click()
    Unload Me
    i = lstInput.ListIndex
    If i <= 0 Then
        MsgBox "You must select an activity."
        Unload Me
        frmDisplay.Show
    Else
        Worksheets("InputTable").Range(Range("A1").Offset(i, 1), Range("A1").Offset(i, 7)).Delete Shift:=xlUp
        Worksheets("InputTable").Range("A1").End(xlDown).Clear
        frmDisplay.Show
    End If
End Sub