Public Const LIST_FILLRANGE_EMPTY = "Лист2!$A$1:$E$1"

Private Sub CommandButton6_Click()

    If Me.ListBox1.ListFillRange = LIST_FILLRANGE_EMPTY Then Exit Sub
    If Me.ListBox1.ListIndex = - 1  Then
        MsgBox "Выберите запись для удаления", vbExclamation, "Сообчение"
        Exit Sub
    End If
    
    boolEditing = True
    
    If Лист2.UsedRange.Rows.Count >  2  Then
        dwListIndex = Me.ListBox1.ListIndex +  2 
        If dwListIndex = Лист2.UsedRange.Rows.Count Then _
                Me.ListBox1.ListFillRange = _
                LIST_FILLRANGE & CStr(Лист2.UsedRange.Rows.Count -  1 )
    Else
        dwListIndex =  2 
        Me.ListBox1.ListFillRange = LIST_FILLRANGE_EMPTY
    End If
    
    With Лист2
        .Range(.Cells(dwListIndex,  1 ), .Cells(dwListIndex,  5 )).Delete xlShiftUp
    End With
    
    If Me.ListBox1.ListFillRange <> LIST_FILLRANGE_EMPTY _
    And dwListIndex -  1  <> Лист2.UsedRange.Rows.Count Then _
                Me.ListBox1.ListFillRange = _
                LIST_FILLRANGE & CStr(Лист2.UsedRange.Rows.Count)
    
    boolEditing = False
End Sub