Clear not delete list box entry

Another one. Select value to delete in Listbox before pressing button.

Private Sub Cmd_02_Click()
    With LB_00
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                T2.Cells(.ListIndex + 2, 1).resize(,82).clearcontents
            End If
        Next
        .List = [data_tbl].Value
    End With
End Sub