Jalar dato en columna según el dia y tienda

[Celest3]

Amigos, estoy tratando de realizar en la hoja reporte que me aparezca en el día Lunes por

ejemplo, las cantidades según la tienda.

la macro que hice solo me trae un valor en la primera columna y lo que busco es que si hay

otro lunes debe aparecer esa cantidad en la siguiente columna.

por ejemplo la Tienda1 tiene el día lunes 2 ventas.

estoy utilizando este codigo:

Sub Reporte()

ufd = Data.Range("A1").End(xlDown).Row 'filas de hoha data

UfR = Reportes.Range("A8").End(xlDown).Row  'filas de la hoja reporte

ucr = Reportes.Range("A8").End(xlToRight).Column 'columnas d ela hoja reporte


'Reportes.Range("B9:V" & UfR).ClearComments

Fil = 9

Do While Fil <= UfR

For I = 2 To ufd


    If Reportes.Cells(Fil, 1) = Data.Cells(I, 3) Then

        For P = 2 To ucr Step 3

            If Reportes.Cells(8, P) = Data.Cells(I, 4) Then


                Reportes.Cells(Fil, P) = Data.Cells(I, 2)

                'Comentario = Data.Cells(i, 1)

                'Reportes.Cells(Fil, P).AddComment Comentario


            End If


        Next

    End If


Next

Fil = Fil + 1

Loop

End Sub

[/CODE]

espero que me puedan ayudar.

Saludos,

Celest3

Archivo2.xls

[Celest3]

Amigos, no tendrán alguna recomendación para realizar este proceso.

espero sus recomendaciones