Not sure of your criteria but try this
Option Explicit
Sub getonlylastvaluecolB()
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Left(Cells(i + 1, 1), 4) = Left(Cells(i, 1), 4) Then Rows(i).Delete
Next i
End Sub
===========
-----Original Message-----
From: Gaetan M
Sent: Tuesday, August 30, 2011 4:14 PM
To: MS EXCEL AND VBA MACROS
Subject: $$Excel-Macros$$ Macro to remove repeats and merge
I have the following:
Column A B C D
E F
12722 12722 51.5 64.89 RNLO X
12723 12723 51.5 64.89 RNLO X
Would you have the solution to replace B1 by B2 and delete row 2 once
completed since they have been merge?
Thanks,
G.
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel