Copia-pega rangos alternados

Mi problema es el siguiente:
Tengo la macro que te adjunto, como ves, por un lado están los meses del año y a continuación datos con diferente nombres que contienen todos los datos de todo el año (por meses).
Pretendo traspasar de DATOS (seleccionando automáticamente por meses Enero, Febrero M…..) a la hoja de los meses correspondientes.
ME DA ERROR : Selection.PasteSpecial Paste:=xlPasteValues
Yo creo que está bien, pero me vuelvo loco y no lo veo.
Espero me eches una mano. Si no puedes, mi agradecimiento por tus explicaciones en la Web.
Recibe un cordial saludo
Más claro:
Datos a traspasar:
Hoja "Consumos" donde están todos los meses del año ; Enero (C4:Z34) ; Febrero(C39:Z66) …….
Hoja "ECMwh" donde están todos los meses del año ; Enero (C4:Z34) ; Febrero(C39:Z66) …….
pergar en:
Hoja "Enero" donde DATOS son de hoja "consumos" Enero (C4:Z4) se pegarían en (E47:AB47)
                                                                                                              Enero (C5:Z5) se pegarian en (E50:AB50)
                                                                                                              ……………………………………………………………                                                                                                                               Enero (C34:Z4) se pegarian en (E"X":AB"Y")
                   Donde DATOS son de hoja "ECMwh" Enero (C4:Z4) se pegarían en (E49:AB49)
                                                                                                              Enero (C5:Z5) se pegarian en (E52:AB52)
                                                                                                              ……………………………………………………………                                                                                                                               Enero (C34:Z4) se pegarian en (E"X":AB"Y")
Hoja "Febrero" lo mismo pero el rango de COPIADO seria Hoja "Consumos" Febrero(C39:Z66) y Hoja "ECMwh" Febrero(C39:Z66)
ESTA ES LA MACRO
     Private Sub cmdcopiarenenero_Click()
'Hace que la pantalla no parpadee
Application.ScreenUpdating = False
'Defino variables
Dim consumos As String
Dim PPDESVIOS As String
Dim ECMWH As String
Dim ECMER As String
Dim PCDESVIOS As String
Dim PMD As String
Dim SCPVP As String
Dim MBCT As String
Dim CFBAN As String
Dim SCRTR As String
Dim PGP As String
Dim hojaorigen As String
Dim hojadestino As String
'NO SE UTILIZAN (NO BORRAR -- DA ERROR¡¡¡¡)
Dim precio_dia As String
Dim OTROS As String
 'COMENZAR A PERGAR EN LA FILA POSICION DE INICIO PEGADO (DESTINO)
Dim I As Integer
Dim C As Integer
C = 47
'Doy valor a las variables
Enero = Optdestinoenero.Value
Febrero = Optdestinofebrero.Value
Marzo = Optdestinomarzo.Value
Abril = Optdestinoabril.Value
Mayo = optdestinomayo.Value
Junio = OptdestinoJunio.Value
Julio = OptdestinoJulio.Value
Agosto = OptdestinoAgosto.Value
Septiembre = OptdestinoSeptiembre.Value
Octubre = OptdestinoOctubre.Value
Noviembre = OptdestinoNoviembre.Value
Diciembre = OptdestinoDiciembre.Value
consumos = Optconsumos.Value
ECMWH = OptECMwh.Value
PPDESVIOS = OptPPDESVIOS.Value
ECMER = OptECMER.Value
PPDESVIOS = OptPPDESVIOS.Value
PCDESVIOS = OptPCDESVIOS.Value
PMD = OptPMD.Value
SCPVP = OptSCPVP.Value
MBCT = OptMBCT.Value
CFBAN = OptCFBAN.Value
SCRTR = OptSCRTR.Value
PGP = OptPGP.Value
'NO SE UTILIZAN (NO BORRAR...