Dar Resultado en una hoja segun acciones de celdas en otra hoja de manera que agrupe de 10 en 10

[frogleggs]

Solicito ayuda ya que estoy haciendo una macro en las cuales en la hoja 1 tengo 3 acciones, que van colocados aleatoriamente en la columna B y en la columna A esta los datos que quiero procesar segun la accion para que el resultado me lo de en la hoja 2, resulta que si existe en la columna B el consecutivo de una accion (por ej: "SUmar") entonces que cuente hasta 10 ese consecutivo y en la hoja 2 agrupe los datos de la columna A en 1 celda, y baje a la siguiente celda segun la accion de la columna B, no se si soy explicito, de igual forma tengo adelantada una parte que les dejo comentandole tambien que uno de los problemas es que una accion sobreescribe a la otra y no lleva el orden que deberia llevar segun columna B de la Hoja 1, a continuacion la estructura real de la macro:

Private Sub CommandButton1_Click()

Dim e, f, count, count1, c, c1 As Variant

Dim max_fila, max_fila1 As Integer

Call consulta ; esto es para que clasifique los datos columna A hoja 1

Total_encontrados = 0 ; suma cuantos datos en la columna A hoja 1

max_fila = 0 ; hace sumatoria de 10 en 10 para una accion

max_fila1 = 0 ; hace sumatoria de 10 en 10 para otra accion

f = 1

e = 1

x = 2

y = 2

servicio = ""

Do While Hoja1.Cells(x, 1) <> ""

'cuenta la cantidad de numeros para el promedio

Total = Total + 1

Hoja1.Range("G9") = Total

c = Right(Hoja1.Cells(x, 1), 7) ; saca los datos que necesito para la columna A

Select Case Hoja1.Cells(x, 2); Revisara segun accion columna B Hoja 1

Case "ARAÑA"

servicio = StrConv(Hoja1.Cells(x, 2), vbLowerCase) ; minuscula accion columna B

Select Case servicio

Case "Desbloquear"

Total_encontrados = Total_encontrados + 1

If max_fila = 0 Then

count = c

desbloquear = "este" & count & "se desbloqueara"

max_fila = max_fila + 1

else

count = count & "&'" & c

desbloquear = "estos" & count & "se desbloquearan"

max_fila = max_fila + 1

endif

If max_fila = 10 Then ; con este confirmo que este de 10 en 10

max_fila = 0

count = ""

End If

esto es solo para una accion, la estructura de la otra accion es la misma pero para "Bloquear", el asunto es que no logro hacer que lleve un orden consecutivo segun la accion de la columna B de la hoja1

Espero su ayuda, se lo agradeceria

Saludos