VBA - autofit row hight

Jeg har brug for at en vba justerer rækkehøjde automatisk.Jeg laver en Excel til et pdf tilbud.
Jeg kopierer en celle med tekst, og jeg kender ikke længden af denne tekst. Jeg laver en merge så cellen får ønskede bredde (står pænt med resten af tilbuddet), hvorefter jeg ønsker at justere højden på den specifikke række for at få teksten med i sin helhed (der kan være ALT+enter linjeskift)

Den ændrer det bare ikke:

Sheets(strSh_Proposal).Range("B" & intLastRow_Sh_Proposal3 + 6).PasteSpecial Paste:=xlPasteValues 'AndNumberFormats ' kopiering af tekst

With Sheets(strSh_Proposal).Range("B" & intLastRow_Sh_Proposal3 + 6 & ":H" & intLastRow_Sh_Proposal3 + 6)
            .Merge Across = True
            .WrapText = True
            .EntireRow.AutoFit
            .HorizontalAlignment = xlLeft
End With

jeg har forsøgt om det er rækkefølgen af mine små with ting, men intet gør forskellen. Er der nogle som et forslag til hvad jeg måske gør galt?