=Table.TransformColumns(Источник,{{"FirstName", Text.Trim, type text}, {"LastName", Text.Trim, type text}, {"FatherName", Text.Trim, type text}})    

=Table.TransformColumns(Источник, МойСписокСтолбцов, Text.Trim)

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myR As Range
    
    Set p = Range("Меню")
    
    Application.EnableEvents = False
        For Each myR In Target.Cells
'            myR = проверка(myR, p)
'            проверка = myR
            If Not Intersect(myR, Range("D:D")) Is Nothing Then
                If WorksheetFunction.CountIf(p, myR) = 0 Then
                    myR = Empty
                End If
            End If
        Next
    Application.EnableEvents = True
End Sub

    If Target.Cells.Count > 1 Then Exit Sub