Private Sub del_Click()
Dim i As Integer
On Error Resume Next
    With Me.NameOrganization
        For i = 1 To .ListCount
            If .Selected(i) = True Then
                .RemoveItem i
                Worksheets("Справочник").Cells(i, 1).Delete
                Exit For
            End If
        Next
    End With
End Sub

Private Sub del_Click()
    Dim i As Integer
    For i = 0 To Me.NameOrganization.ListCount - 1
        If NameOrganization.Selected(i) = True Then
            NameOrganization.RemoveItem i
            Range("Workers").ListObject.ListRows(i + 1).Delete
            Exit For
        End If
    Next
End Sub

Private Sub UserForm_Initialize()
    NameOrganization.List = Range("Workers").Value
End Sub