Macro not working on all the way through the document
MacroEE.xlsmAttached is an excel 2010 document with a Macro. The macro is designed to combine multiple rows with the same employee ID and total the points. This worked the last time I used it, but on this particular document it only works up to a certain point. If you hit CTRL T it will run the macro. I can't tell where its stopping or see any inconsistencies that would cause it to not stop.
After the macro runs, we should end up with about 800-1000 records.
<<Code added by byundt--Microsoft Excel Zone Advisor 5-22-12 so question would make sense without sample workbook>>
Sub David_Macro()'' David_Macro Macro' Combine Rows and Total Points''Dim RowCount As LongDim i As LongDim j As Long'Find out how many rows have dataRowCount = ActiveSheet.Range("A:A").End(xlDown).RowFor i = 2 To RowCount ' If a row value in col E is the same as the next row then... If Range("E" & i).Value = Range("E" & i + 1).Value Then ' ...start looking for all rows that follow it that have the same value For j = i + 1 To RowCount If Range("E" & j).Value = Range("E" & i).Value Then ' We've found one that's the same so add the value in column C to the first one Range("C" & i).Value = Range("C" & i).Value + Range("C" & j).Value ' Mark the row we just used for later deletion Range("K" & j).Value = "DELETE" Else Exit For End If Next i = j - 1 End IfNext' Delete the marked rowsFor i = RowCount To 2 Step -1 If Range("K" & i).Value = "DELETE" Then Rows(i & ":" & i).Select Selection.Delete Shift:=xlUp End IfNextEnd Sub