Borrar algunos datos

Tengo muchos registros de una hoja
la fila 1 son los datos del cliente
y las filas siguientes son productos.
pueden haber de 2 a 10 filas de productos
y asi hasta que llega un cliente nuevo.
Lo que necesito es una macro que me limpie los productos y me deje solamente el 1 producto de cada cliente.
ejemplo:
A B C D E F
1 teléfono dni nombre dirección población provincia
2 producto1
3 producto2
4 producto3
5 teléfono dni nombre dirección población provincia

6 producto1

7 producto2

8 producto3
9 producto4

Los clientes tienen productos distintos yo necesito quedarme con el primero, es decir justo el que esta debajo del dni
GRACIAS!!!!!