Sub combine_rows()
Application.ScreenUpdating = False
For MY_COLS = 1 To 4
Select Case Cells(1, MY_COLS)
Case "Account #"
CHECK_1 = MY_COLS
Case "Account"
CHECK_2 = MY_COLS
Case "Default"
CHECK_3 = MY_COLS
Case "Region"
NO_CHECK = MY_COLS
End Select
Next MY_COLS
Application.ScreenUpdating = False
For MY_ROWS = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
If Cells(MY_ROWS, CHECK_1).Value & Cells(MY_ROWS, CHECK_2).Value & Cells(MY_ROWS, CHECK_3).Value _
= Cells(MY_ROWS - 1, CHECK_1).Value & Cells(MY_ROWS - 1, CHECK_2).Value & Cells(MY_ROWS - 1, CHECK_3).Value _
Then
Cells(MY_ROWS - 1, NO_CHECK).Value = Cells(MY_ROWS - 1, NO_CHECK).Value & ", " & Cells(MY_ROWS, NO_CHECK).Value
Cells(MY_ROWS - 1, NO_CHECK + 2).Value = Cells(MY_ROWS - 1, NO_CHECK + 2).Value + Cells(MY_ROWS, NO_CHECK + 2).Value
Cells(MY_ROWS - 1, NO_CHECK + 3).Value = Cells(MY_ROWS - 1, NO_CHECK + 3).Value + Cells(MY_ROWS, NO_CHECK + 3).Value
Rows(MY_ROWS).Delete
End If
Next MY_ROWS
Application.ScreenUpdating = True
End Sub
Bookmarks