=ЕСЛИ(RC[-8]=1;RC[-5];"")

=СЧЁТЕСЛИ(RC[-6]:RC[-1];"<>"&"")

=ВПР((RC8&RC9&RC10);КУКУ!C1:C10;10;0)

Option Explicit

Private f1 As Variant
Private f2 As Variant
Private f3 As Variant

Public Property Let qql1(inn As String)
    f1 = inn
    Debug.Print "QQL1 in good: " & f1
End Property

Public Property Let qql2(inn As Collection)
    Set f2 = inn
    Debug.Print "QQL2 in good: " & f2.Item(1)
End Property

Public Property Let qql3(inn As ClassTest)
    Set f3 = inn
    Debug.Print "QQL3 in good"
End Property

Option Explicit

Public Sub tezd()
    Dim qql As New ClassTest
    Dim coll As New Collection
    
    coll.Add 4
    coll.Add 7
    
    qql.qql1 = "qwee"
    qql.qql2 = coll
    qql.qql3 = qql
End Sub

Const FFORMULA As String = "=IFERROR((@c1-@c2)/@c1;"""")"

 "=R[-8]C-R[-4]C)/R[-8]C"

"=IFERROR((R[-8]C-R[-4]C)/R[-8]C;"""")"

Public Function RelAdress(ByVal cell_get As Range, ByVal cell_rel As Range) As String
    Dim res As String
    Dim roww As Integer, clmnn As Integer
    
    Set cell_get = cell_get.Cells(1, 1)
    Set cell_rel = cell_rel.Cells(1, 1)
    
    roww = cell_get.Row - cell_rel.Row
    clmnn = cell_get.Column - cell_rel.Column
    
    res = "R[" & roww & "]C[" & clmnn & "]"
    
    RelAdress = res
End Function

selection.cells(1).address(false,false,xlr1c1)

relAdress(cell_donor,cell_acceptor) as string

If WorksheetFunction.CountA(acceptor) = 0 Then
            donor_for_filled_cells.Copy
            .PasteSpecial xlPasteValidation
            .PasteSpecial xlPasteFormats
            .PasteSpecial xlPasteColumnWidths
            .PasteSpecial xlPasteFormulas
        End If