Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("$P$3")) Is Nothing Then
        Call ZapolnSotr(Target)
    End If
End Sub

Private Sub ZapolnSotr(ByVal Target As Range) 'На этой строке пишет ошибку
    ConnectMDB
    Dim ceh As Object
    Dim vibrSotr As Object
    Dim SQL As String
    Dim RS As ADODB.Recordset
    Set ceh = Range("$B$2")
    Target.Select
    Set vibrSotr = Target
    
    Set RS = New ADODB.Recordset
    SQL "SELECT Сотрудники.[Табельный номер] As TabNomer, Сотрудники.ФИО As FIOSotrud, [Сотрудники]![ФИО] & "" & [Сотрудники]![Табельный номер] AS выбрСотр " & _
    "FROM Сотрудники WHERE ((([Сотрудники]![ФИО] & "" & [Сотрудники]![Табельный номер])= '" & vibrSotr & "') AND ((Сотрудники.Подразделение)= '" & ceh & "'));"

    RS.Open SQL, Cn
    Do Until RS.EOF
    Target.End(xlDown).Offset(1, 0).Value = RS![FIOSotrud]
    Target.End(xlDown).Offset(1, -1).Value = RS![TabNomer]
    RS.MoveNext
    Loop
    DisconnectMDB
End Sub