macro for duplicate values
 

I would like to run a macro that looks in Column A, finds the first value,
brings back the adjacent value in column B. Then either skips over or
deletes the duplicate 1120's and stops at 1140 and bring it's adjacent cells
value, skips the next 1140.etc. See below. Any ideas?

Example: column A
column B

1120
7 May 07

1120
9 May 07

1120
9 May 07

1140
6 June 06

1140
15 July 07

1160
1 Jan 05

1160
15 march 06

Thanks, Italiavb