Delete Duplicate Rows With Condition

how to delete duplicate rows except the first and the last rows using macro..

I have data like this and i want to delete those rows except the first and the last rows

31/10/2006
31/10/2006
31/10/2006
31/10/2006

I use the below macros from btadams posted 27th January 2003 but only for delete the last row


Sub DleteDups()
Dim Cell As Range

Do While ActiveCell.Offset(1, 0) <> ""
If ActiveCell.Value <> ActiveCell.Offset(1, 0).Value Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.EntireRow.Delete
End If
Loop
End Sub