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

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

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

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

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

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

relAdress(cell_donor,cell_acceptor) as string

function f1(){
    on error goto errHandler1
    function f2(){
        on error goto errHandler2
        for i = 1 to 5
            function f3(){
                err.raise -1
            }
        itLabel: next i
        errHandler2:
            err.clear
            goto itLabel
    }
    errHandler1:
}

With dws.PivotTables(1)
.PivotSelect "", xlDataAndLabel, True
Set rng = Selection
Set rng = Range(ws.Cells(BEG_ROW2, BEG_COLUMN3), ws.Cells(BEG_ROW2 + rng.Row, BEG_COLUMN3 + rng.Column))
Selection.Copy
rng.PasteSpecial xlPasteValues
rng.PasteSpecial xlPasteFormats

With dws.PivotTables(1)
.PivotSelect "", xlDataAndLabel, True
Set rng = Range(ws.Cells(BEG_ROW2, BEG_COLUMN3), ws.Cells(BEG_ROW2 + .RowRange.count, BEG_COLUMN3 + .ColumnRange.count))
Selection.Copy
rng.PasteSpecial xlPasteValues
rng.PasteSpecial xlPasteFormats

Set rng = Range(.Cells(BEG_ROW1, 1), .Cells(BEG_ROW1 + num_of_rows - 1, END_COLUMN1))
standard_rng1.Copy
rng.PasteSpecial xlPasteFormulas
rng.PasteSpecial xlPasteFormats
rng.PasteSpecial xlPasteColumnWidths

Set rng = Range(.Cells(BEG_ROW1, 1), .Cells(BEG_ROW1 + num_of_rows - 1, END_COLUMN1))
        standard_rng1.Copy
        rng.PasteSpecial xlPasteFormulas, xlPasteSpecialOperationAdd
        rng.PasteSpecial xlPasteFormats, xlPasteSpecialOperationAdd
        rng.PasteSpecial xlPasteColumnWidths, xlPasteSpecialOperationAdd