Active Cell Offset Entire Row Autofit Issue

[LadyRave]

Hello Everyone,

I have the following code below, however, when I run the code the words are cut off. What am I doing wrong?

Code -

Sheets("Active AGT").Range("B" & ActiveCell.Offset(3, 1).Row & ":D" & ActiveCell.Offset(3, 1).Row).Merge
Range("B" & ActiveCell.Offset(4, 1).Row & ":B" & ActiveCell.Offset(4, 1).Row).EntireRow.AutoFit


Table -

I tried to create a table to show the section where the words are cut off so hopefully this depicts a good image.


[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD="align: center"]Data A[/TD]
[TD="align: center"]This Part is the One Cut Off Even though I have AutoFit[/TD]
[TD="align: center"]Data B[/TD]
[TD="align: center"]Data C[/TD]
[/TR]
</tbody>[/TABLE]


May anyone please help?

Thank you!

 

[Fluff]

You cannot autofit merged cells.
Have a look here for a workround
http://blog.contextures.com/archives/2012/06/07/autofit-merged-cell-row-height/

 

[LadyRave]

I tried this code but I get an error on:

If Not Intersect(Target, Range(str01)) Is Nothing Then
Application.ScreenUpdating = False
On Error Resume Next
Set AutoFitRng = Range(Range(str01).MergeArea.Address)

 

[Fluff]

In that case have a look at this instead
http://blog.contextures.com/archives/2015/12/03/autofit-merged-cells-row-height-update-20151203/