Simplify code that's too long

I have a VBA code that is too long (after a certain point it stops working) and I'm hoping that there's a way to simplify it to fix this issue. What the code does is it replaces any empty cells in a given range with a default formula. Here is the code I'm currently using:

Please Login or Register  to view this content.

And so on...

So the formula is repeated for several columns in each section, then changes slightly for the next section:

Please Login or Register  to view this content.

But is there a way to simplify this formula so I don't necessarily need one section of code for each column since they all use basically the same formula? I've tried using "myCell.Column" for the column designation, but that doesn't seem to work. Any other suggestions?

Any advice would be greatly appreciated!

Replace all of the first bunch with

Please Login or Register  to view this content.

and all of the second bunch with

Please Login or Register  to view this content.

Make sure to try it on a copy of your workbook first.

Perhaps

Please Login or Register  to view this content.

This code seems to work for the first section, but when I tried to add in the code for next section it didn't work. Please tell me where I'm going wrong.

Here is the code I'm currently using:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Sorry if I was unclear. I actually have 12 sections, not just 2, so I don't think this code will work either.

Here is the full detail of what I'm looking to do:
- For cells AA9:AL33 I want the blank cell's formula to be =IF($G(cell row)="Yes",$Z(cell row)/12,"")
- For cells AO9:AZ33 I want the blank cell's formula to be =IF($G(cell row)="Yes",$AN(cell row)/12,"")
- For cells BC9:BN33 I want the blank cell's formula to be =IF($G(cell row)="Yes",$BB(cell row)/12,"")
- For cells BQ9:CB33 I want the blank cell's formula to be =IF($G(cell row)="Yes",$BP(cell row)/12,"")
- For cells CE9:CP33 I want the blank cell's formula to be =IF($G(cell row)="Yes",$CD(cell row)/12,"")
- For cells CS9:DD33 I want the blank cell's formula to be =IF($G(cell row)="Yes",$CR(cell row)/12,"")
- For cells DG9:DR33 I want the blank cell's formula to be =IF($G(cell row)="Yes",$DF(cell row)/12,"")
- For cells DU9:EF33 I want the blank cell's formula to be =IF($G(cell row)="Yes",$DT(cell row)/12,"")
- For cells EI9:ET33 I want the blank cell's formula to be =IF($G(cell row)="Yes",$EH(cell row)/12,"")
- For cells EW9:FH33 I want the blank cell's formula to be =IF($G(cell row)="Yes",$EV(cell row)/12,"")
- For cells FK9:FV33 I want the blank cell's formula to be =IF($G(cell row)="Yes",$FJ(cell row)/12,"")
- For cells FY9:GJ33 I want the blank cell's formula to be =IF($G(cell row)="Yes",$FX(cell row)/12,"")

Thanks so much for your assistance!

You should mention this in your first post, if you can not adjust the code...

Please Login or Register  to view this content.

That did the trick. Thanks again for your help