VBA Code: Autofit Row Heights & Wrap Text With Merged Ce

[otrevino3]

The row heights from row 40 down to the end of my data range need to be autofitted. My Data range stops at around row 50.

The contents of rows 40 to end of range also need to be formatted with wrap text.

**Rows 40 down contain merged cells (i.e b40:d40 are merged; f40:h40 are also merged).**

Tactps posted some VBA that I tweeked a little, but after playing with it, I ended up with row 40 being sized to 12.75.

Here is the Tactps' raw VBA

Private Sub Worksheet_Calculate()
[a1].RowHeight = (Int((Len([a1]) / 30)) + 1) * 12.75
End Sub

Are there any VBA gurus out there that can help me tweek this VBA? I'd prefer not to unmerge all of these cells (there are quite a few).