Te sugiero que hagas lo siguiente:
a) Haz click derecho en la etiqueta de la hoja
original y selecciona: Ver código.
b) En la ventana que se te abrirá, copia y pega el siguiente código:
Código PHP:
Sub GenerarIdeal()
Dim LR As Long, i As Long, col As Integer
Application.ScreenUpdating = False
LR = Cells(Rows.Count, "e").End(xlUp).Row
Workbooks.Add xlWBATWorksheet
With ActiveSheet
.[a1:a10] = [b1:b10].Value
For i = 2 To LR Step 9
col = 1 + .Cells(2, Columns.Count).End(xlToLeft).Column
.Cells(2, col).Resize(9) = Cells(i, "e").Resize(9).Value
Next i
.[b1].Resize(, col - 1) = [e1].Value
With .[b12].Resize(, col - 1)
.Formula = "= sum(b2:b11)"
.NumberFormat = "#,##0"
End With
.[a1].Resize(, col).EntireColumn.AutoFit
.Range("B2").Select
ActiveWindow.FreezePanes = True
End With
Application.ScreenUpdating = True
End Sub
c) Cierra todas las ventanas del ambiente Visual Basic for Application en el que te encuentras, y retorna al Excel.
d) Ejecuta la macro recién incorporada:
GenerarIdeal
¿Te puede servir la idea?...
Saludos, Cacho R.