copiar informacion, dejando un espacio cuando se encuentren datos repetidos

Amigos, quiero pedirles un favor, ya me quede atorado con este formato..(anexo libro de ejemplo)
en la primera hoja con nombre guayaba, me aparece un reporte extraido de un programa administrativo, del cual quiero sustraer la misma informacion, solo que separada por un espacio como la muestro en la hoja 1, como condicionante que sea diferente numero de tienda, para lo cual utilice la funcion "SI"; y me desplega la informacion con un problema, no me refleja el ultimo renglon.. es decir en la hoja guayaba tengo 7 registros de la tienda 1020, y en la hoja 1, solo e trae 6 y asi con las demas tiendas...
espero haber sido claro y ojala puedan ayudarme, si hay otra metodologia, me gusaria me ayudaran a resolverla, se un minimo de excel, y se que lo bonito de arender es buscar, asiq ue con que me den un empujoncito, lo podre hacer..

saludos

AMIGOS, despues de batallar con la cuestion de las funciones y no lograr nada, anduve buscando por el foro, hasta dar con el siguiente

[Tienes que estar registrado y conectado para ver este vínculo]

donde el maestro Gali, expuso ese codigo..

Código:

Sub InsertarFilas()
Dim rngBase As Long, contador As Long
Dim rngSel As Range
Dim lngRows() As Long
Dim I As Long
Application.ScreenUpdating = False
Ordenar
On Error Resume Next
rngBase = Cells(Rows.Count, "B").End(xlUp).Row
Set rngSel = Range("B1:B" & rngBase)
Do
Err.Clear
rngSel(1, 1).Activate
ReDim Preserve lngRows(contador)
lngRows(contador) = rngSel.ColumnDifferences(ActiveCell).Row
Set rngSel = Nothing

Set rngSel = Range("B" & lngRows(contador) & ":B" & rngBase)
contador = contador + 1

Loop Until Err.Number > 0
Set rngSel = Nothing


For I = UBound(lngRows) - 1 To 0 Step -1
Range("B" & lngRows(I)).EntireRow.Insert
Next I
End Sub
Sub Ordenar()
    With Sheets(2)
    Intersect(.[A:F], .UsedRange).Sort Key1:=Sheets(2).Range("B1"), Order1:=xlAscending, Header:=xlNo
    End With
End Sub.


el cual se adecuo a la perfeccion.

saludos y se los dejo por si a alguien le funciona