Dim CelA As Range
Application.ScreenUpdating = False
For Each CelA In Range("A15:A500")
If Len(CelA) < 35 And Len(CelA.Offset(0, 1)) < 35 Then
CelA.RowHeight = 33
ElseIf Len(CelA) > 35 Or Len(CelA.Offset(0, 1)) > 45 Then
CelA.RowHeight = 66
ElseIf Len(CelA) > 70 Or Len(CelA.Offset(0, 1)) > 90 Then
CelA.RowHeight = 99
End If
Next CelA
Application.ScreenUpdating = True