Inclusief gesorteerde lijst:
Sub jvr()
With Sheets("inhoud keuzelijsten").ListObjects("voornaam")
If Not IsNumeric(Application.Match(Sheets("INPUT").Range("E21"), .DataBodyRange, 0)) Then
.ListRows.Add.Range = Sheets("INPUT").Range("E21")
.Range.Sort .DataBodyRange(1, 1), 1, , , , , , 1
Else
MsgBox "Naam bestaat al"
End If
End With
End Sub