непонятно немного...  
вам надо чтобы автоматом желтенькие обработала?  
или чтобы само нашлось и обработалось?  
 
если вы предварительно вручную отмечаете цветом, то ничего сложного потом обработать.  
 
а вот чтобы сами такие проблемные ячейки искались и обрабатывались - это проблематично.  
вижу тут только такой выход:  
в форме поменять шрифт на Courier или другой моноширинный. с таким шрифтом уже можно будет работать.

Наталка, было на форуме - поищите. Подбор высоты и ширины ячейки. Делал кажется Казанский. Там учитывается любой шрифт и его размер. А также Nerv выкладывал решение по подбору высоты ячейки.  
Игорь67

Код по Вашему вопросу (добавил только 2 строки в начале и 1 в конце, остальное не трогал):  
 
Sub Макрос222()  
'  
' Макрос222 Макрос  
'  
' Сочетание клавиш: Ctrl+z  
Dim a As Range  
For Each a In Selection  
       With a  
       .HorizontalAlignment = xlLeft  
       .VerticalAlignment = xlCenter  
       .WrapText = True  
       .Orientation = 0  
       .AddIndent = False  
       .IndentLevel = 0  
       .ShrinkToFit = False  
       .ReadingOrder = xlContext  
       .MergeCells = True  
        End With  
       a.RowHeight = 34.25  
Next a  
End Sub  
 
Работает в выделенном диапазоне.  
 
Но он сделает высоту одинаковую для всех строк (34,25), вне зависимости есть там перенос строки или нет.  
Т.к. автоподбор высоты строк для объединенных ячеек не работает, то имеются некоторые сложности.  
Поэтому выше я дал ссылку про Поиск. Там сразу выйдет тема, где уважаемый nerv выкладывал надстройку для автоподбора высоты строк для объединенных ячеек.  
Сам ею пользуюсь, очень удобная штука (благодарность nerv-у).