mejorar proceso de distribucion de datos numericos

[dragonfire33]

hola buenas como puedo modificar el siguiente proceso:
1. necesito seleccionar 40 celdas de un dicho rango en mi caso seria "a1:h5"
2. enviar esos datos automaticamente a la hoja2 en forma ordenada como se muestra en la columna M
3. necesito eliminar algunos datos numericos de la columna M ( a veces 1 o mas ) y agregar esa misma cantidad con el fin de que sean 40 datos numericos en mi caso elimine el numero en la celda m2 y agregue un nuevo numero en la celda m42
4.agrupar los datos actuales como se muestra en en rango "c1:j5" y enviar a hoja 1 al rango "a1:h5" nuevamente

Sub unir_columnas()
'Por.DAM
ci = Columnas("A"). Columna 'columna inicial a unir
cf = Columnas("J"). Columna 'columna final a unir
cd = Columnas("M"). Columna 'columna unión
f = 1 'fila inicial de datos
Para i = ci A cf
uf = Celdas(Rows.Count, i). Fin(xlUp). Fila
ud = Celdas(Rows.Count, cd). Fin(xlUp). Fila + 1
 Rango(Celdas(f, i), Celdas(uf, i)). Copiar celdas (ud, cd)
próximo
Fin sub

Sub unirGrup()
'---- Variables modificables:
'=== JHON, modifica estos datos de acuerdo a tu planilla:
IniCol = " A1" 'celda inicial donde están los números a distribuir
IniDes = "C1" ' primera celde donde iniciar los grupos
Gruposde = 5 ' cantidad de elementos de cada grupo

'variables de ---- fin
'
'---- inicio de rutina:
'

UltFila = Rango(IniCol). End(xlDown). Fila

Do While Range(IniCol). Offset(LaFila). Fila <= UltFila
 Rango (IniCol). Offset(LaFila), Range(IniCol). Offset(LaFila + Gruposde - 1)). Rango de copia (IniDes). Offset(0, LaColumna)
    LaFila = LaFila + Gruposde
    LaColumna = LaColumna + 1
Bucle

MsgBox "Fueron distribuidos" & UltFila - Range(IniCol). Fila + 1 & " números en " & LaColumna & " columnas"
Fin sub
[/CÓDIGO] [/CÓDIGO]