Macro almost works. Does not Delete as desired

**yuenk** · 12-01-2014, 09:46 AM

I have a macro that deletes duplicate versions of a work number. The macro runs the way I need it to but when it goes to delete the information it doesnt delete the data in columns A & B.

The file I'm working with
Test Run pt 4.xlsm

Sub keep_highest()

Dim k As Object, c, al As Long
Set k = CreateObject("Scripting.dictionary")
c = Sheets("sheet1").Cells(1).CurrentRegion
For al = 2 To UBound(c)
    If c(al, 8) > k(c(al, 3)) Then k(c(al, 3)) = c(al, 8)
Next al
For al = UBound(c) To 2 Step -1
    If c(al, 8) <> k(c(al, 3)) Then Cells(al, 3).Resize(, UBound(c, 2)).Delete xlUp
Next al

End Sub

**zbor** · 12-01-2014, 09:50 AM

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title go to your first post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

**alansidman** · 12-01-2014, 09:51 AM

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum:

i have changed the title to be more descriptive. Please read the rules and adhere to them in the future.