$active_cell->{FormulaR1C1} = $my_macro_expression;
$active_cell->Select;
$active_cell->Copy;
$Sheet->Range($active_cell, $end_cell)->Select;
$Sheet->Paste