# Gets Formula for all cells in range Column C
my $Data = $Book->Worksheets(6)->Range("C6:C37")->{Formula};

# Paste Formula in Column D
$Book->Worksheets(6)->Range("D6:D37")->{Formula} = $Data;