Foro Excel

Estoy haciendo una macro en la que yo selecciono por ejemplo de c10 a H12 (En "Presupuestos"), le doy a "pasar a OF2006" y en teoria se copian esas celdas, y se pegan en la hoja "OF2006" - Pero hay es donde me sale UN ERROR en la macro. ¿Alguno sabeis cómo se puede solucionar?.
Muchas gracias por vuestra ayuda.

Hola!
Una mini ayuda.
Condiciones para que funcione esta macro:
1)Seleccionar la hoja Presupuesto, luego el rango, en nuestro caso C10:H12.
2)Ejecutar la macro.

Sub LlevarDatos()
Selection.Copy
Sheets("OF2006").Select
Range("C1").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Atte.

Acero:

checalo y me comentas...

por cierto me quede esperando tus comentarios sobre el sub para asignar color a una celda y hoja segun el año,te sirvio,no te sirvio? ???????

Me faltaba poner un detalle:

Sub LlevarDatos()
Selection.Copy
Sheets("OF2006").Select
Range("C1").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False'es como apretar esc, sacar del protapapeles
End Sub

Hola Adrian,
He probado con el código que me mandaste y me sigue dando el mismo error que a mí­ en: Range("C1").Select. Me dice "Error en el método Select de la clase Range"

Hola ST,
Lo que busco es que yo selecciono varias celdas cualesquiera (en "presupuestos") y quiero que se copien debajo de la última fila llena de datos (en "OF2006").

Saludos y gracias por vuestra ayuda

Hola acero

Revisa el adjunto (por cierto el de ST funciona perfectamente)

Un saludo desde Vitoria