How Do I stop the code from telling me that only the top left value will remain and go in to debug mode when there is nothing to merge?![]()
Sub MI_Merge_FV() Dim i&, k&: k = 1 For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row If Left(Cells(i, 2), 1) = "T" Then Cells(k, 1).Resize(i - k).Merge k = i + 1 End If Next i End Sub
Cross Post:
http://www.msofficeforums.com/excel-...html#post91290
http://www.mrexcel.com/forum/excel-q...ml#post4339619
Bookmarks