Copiar datos desde lista desplegable

Estoy haciendo un proyecto similar al de un compañero.

Copie el código

Sub CopiaCeldaConValidacion()
'Por.Dante Amor
Set l1 = ThisWorkbook
Set h1 = l1.ActiveSheet
Set l2 = Workbooks("Datos Sheet time")
Set h2 = l2.Sheets("Hoja2")
'
Set ad = ActiveCell.SpecialCells(xlCellTypeAllValidation)
If Not Intersect(ActiveCell, ad) Is Nothing Then
b = ActiveCell.Validation.Formula1
h1.Range(ActiveCell.Address).Copy h2.Range(ActiveCell.Address)
h1.Range(b).Copy h2.Range(b)
End If
End Sub

Cuando abro el archivo me sale un error; y al dar depurar me marca error en la línea Set l2 = Workbooks("Libro11") donde coloco el nombre de la hoja.

Ademas; por favor si me puedes indicar como hago para que de la lista despegable pueda dividir los nombres y pegarlos en hojas diferentes.

Ej en la lista desplegable tenemos 30 personas, la idea es que me muestre cuando escojo una de X departamento en la hoja respectiva para el cargo (Nombre, hoja Contabilidad).