=СУММПРОИЗВ((ЕОШ(ПОИСК(F$14;$A$2:$A$40))=ЛОЖЬ)*(ДАТА(ГОД($B$2:$B$40);МЕСЯЦ($B$2:$B$40);ДЕНЬ($B$2:$B$40))=$E15))

="Да"&СИМВОЛ(10)&"Нет"

=ТЕКСТ(A1;"# ##0")&" "&A2

=СУММПРОИЗВ(($A$2:$A$64=A2)*($D$2:$D$64=D2)*$N$2:$N$64;$P$2:$P$64)>15000

=ИНДЕКС('Результаты поиска'!B:B;4*СТРОКА(A1))

Range("C" & ActiveCell.Row & ":E" & ActiveCell.Row).Value = ActiveCell.Value

Sub test()
HomeDir$ = ThisWorkbook.Path
a = Split(HomeDir$, "\")
b = Len(a(UBound(a))) + 1
c = Left(HomeDir$, Len(HomeDir$) - b)
MsgBox c
End Sub

Sub test()
lrow = Cells(1, 3).End(xlDown).Row
Range("A" & lrow & ":H" & lrow).Select
End Sub

=ИНДЕКС($B$4:$B$9;АГРЕГАТ(14;6;($A$4:$A$9=I4)*(H4>=$C$4:$C$9)*СТРОКА($A$1:$A$6);1))

=ГПР($B$3;$B$3:$B$9;АГРЕГАТ(14;6;($A$4:$A$9=I4)*(H4>=$C$4:$C$9)*СТРОКА($A$2:$A$7);1);0)

Function VisualVal_Text(rc As Range)
VisualVal_Text = rc.Text
End Function
Sub test()
MsgBox VisualVal_Text(Range("A1"))
End Sub

Option Explicit

Public Sub Фильтр_Копировать_Параллельно()
Dim rng As Range
Set rng = Selection.SpecialCells(xlCellTypeVisible)

On Error Resume Next
Dim rngInput As Range
Set rngInput = Application.InputBox(Prompt:="Выберите ячейку или введите в формате A1:", Type:=8)
On Error GoTo 0

If Not rngInput Is Nothing Then
    Dim СтолбецСмещения
    
    СтолбецСмещения = rngInput.Column - rng.Column
Else
    
    Exit Sub '==>>
End If

Dim eL As Range

For Each eL In rng
    eL.Copy
    eL.Offset(0, СтолбецСмещения).PasteSpecial xlPasteFormulas
Next

MsgBox "Всё !"
End Sub

sPath = ThisWorkbook.Path & "D:\"

sPath = "D:\"