my $formula1 = $ws->store_formula('=(12*9999)+MONTH($L39-1)-MONTH(A92)+1');
 
  my $diff=111;
  $ws->repeat_formula($row, $col, $formula1, $fmt->{'number'},
                                     qw/^9999$/, $diff,
                                     qw/^A92$/, 'A' . $current_row
                        );