Base de datos clientes Excel

De lo que veo en tu hoja creo que se vuelve dificil porque tu formato lo vuelve dificl, por tanto yo pregunto, se puede cambiar un poco el formato, para que en lugar de como lo tienes sea asi¨:
A1 = Fecha
B1 = Placas
Y de A2 en adelante cada vez que haya una placa colocas el día y la placa que le toca, creo que si ordenas tu info en forma de tabla es más fácil generar el reorte que necesitas, tu eres el usuario dime si te conviene el cambio.

el formato que tengo es solo una forma de hacerlo , pero si se puede cambiar claro, si es mas facil.
Lo unico que quiero es que sea facil ir capturando el dato PLACa en su celda correspondiente.
Gracias

Me he demorado porque estoy de afán con esto de la jornada mundial de la juventud, en todo caso te paso los codigos, el archivo te lo paso por correo.
Sub Base()
Dim Comprobar, c, d
Comprobar = True: c = 1: d = 1 ' Inicializa variables.
Sheets("REPORTE CLIENTES").Select
a = Range("B3").Value
Z = 1
For i = 1 To 12
Sheets("DM").Select
Z = Z + 1
b = Range("A" & Z).Value
Sheets(b).Select
Do ' Bucle externo.
Do While c < 65000 &#39; Bucle interno.
c = c + 1 &#39; Incrementa el contador.
If Range(&quot;B&quot; & c).Value <> &quot;&quot; Then &#39; Si la condición es verdadera.
If Range(&quot;B&quot; & c).Value = a Then
e = Range(&quot;A&quot; & c).Value
d = d + 1
Sheets(&quot;REPORTE CLIENTES&quot;).Select
Range(&quot;G&quot; & d).Value = e
Range(&quot;F&quot; & d).Value = a
Sheets(b).Select
End If
Else
Comprobar = False &#39; Establece el valor a False.
Exit Do &#39; Sale del bucle interno.
End If
Loop
Loop Until Comprobar = False &#39; Sale inmediatamente
Next i
Sheets(&quot;REPORTE CLIENTES&quot;).Select
End Sub

a cual correo ami correo ??
Te lo envio o que onda???