Error en macro que copia, pega y organiza datos.

Hola, intenté escribir en el tema "Copiar rango y pegar en la columna siguiente disponible" pero estaba "cerrado por abandono", primeramente, muchas gracias a Marco Antonio pues fue el quien me proporcionó una macro que me ayudó mucho y si no había comentado fue por que estaba trabajando la macro, personalizandola a mis diferentes rangos y columnas, lo cual ha funcionado muy bien.

El código que me proporcionó Marco Antonio es el siguiente:

Sub VaciarDatos()

  For y = 16 To 27 'Rango O:AA

      If Trim(Cells(8, y)) = Empty Then

        'Rango O:AA

        c = Split(Cells(8, y).Address, "$")(1)

        Range(c & "8:" & c & "20").Value = Range("O8:O20").Value

        Range(c & "25:" & c & "37").Value = Range("O25:O37").Value

        'Rango AE:AP

        c = Split(Cells(8, y + 15).Address, "$")(1)

        Range(c & "8:" & c & "20").Value = Range("AD8:AD20").Value

        Range(c & "25:" & c & "37").Value = Range("AD25:AD37").Value

        Exit For

      End If

  Next

  Range("E8:H20, E25:H37,E42:H48").ClearContents

  Range("B5").Select

End Sub[/CODE]

Y ahora yo ya lo he personalizado, agregando un paso más a esta macro (copiar y pegar valores en rango W), y agregué otra macro sencilla copiar y pegar fórmulas igualmente en un rango fijo.

Sin embargo a la hora de correr la macro principal "Vaciar Datos", todo corre bien sin errores, sin embargo en vez de copiar y pegar los datos en la columna del mes vacío los pega en la columna Z.

Adicionalmente, ¿hay algún condicional o parámetro que se pueda utilizar para que cuando yo ponga el mes en una celda por ejemplo A1, la macro copie y pegue los datos en la columna del mes escrito en la celda A1 y claro que en la columna del mes al correr la macro, se borren los datos anteriores.

Esta es la macro que estoy usando ahora, adjunto archivo para mayor referencia y de antemano muchas gracias por su apoyo.

La otra macro que uso para copiar y pegar formulas, es la siguiente, es sólamente informativo pues con esta macro no tengo ningún problema:

No me permite subir el archivo con macros habilitadas o en excel 2010, así que lo subo en formato 2007.

Duda Excel Total.xls