Validierungsliste kopieren, InCell Dropdown

Sub NeueZeileZusatzVollmandat()
Dim ws As Worksheet
Dim ws2 As Worksheet
Dim eRow As Long
Dim lRow As Long
Set ws2 = Worksheets("VollmandatNormal")
Set ws = Worksheets("Lookup_VM_normal")
eRow = ws2.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=  _
_
xlValues).Row + 1
lRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=  _
_
xlValues).Row
ws.Rows(27).Copy ws2.Rows(eRow)
With ws2.Range(lRow).Validation
.Add xlValidateList, xlValidAlertStop, xlBetween, "=Lookup_VM_normal!$A$17:$A$22"
.InCellDropdown = True
End With
End Sub