Foros del web, para los que viven de bits

Hola, he hecho esta macro:

Sub proba_grup_B()
'
' proba_grup_B Macro
' Macro grabada el 05/08/2008 por p0z0g55
'
' Acceso directo: CTRL+b'

Selection.End(xlUp).Select
Range("A5:C5").Select Selection.Copy
Sheets("Definitivo x grupo").Select
ActiveWindow.SmallScroll Down:=9
Application.Goto Reference:="R85C3"
Selection.End(xlUp).Select
Range("B64").Select
ActiveSheet.Paste
Range("B65").Select
Application.Goto Reference:="R85C3"
Sheets("B").Select
Range("A6").Select
Application.Goto Reference:="R45C3"
End Sub


La cuestión es que tengo dos hojas en un libro, cómo pueden ver. Quiero pasar unas filas de la hoja ("B") a la hoja("Definitivo por grupo"). Quiero que ciertas filas de la hoja B se me copien a la otra una debajo de la otra.

El problema es que el Rango "A5:C5", igual como la celda "A6" de la otra hoja, se me quedan fijos, y siempre se me copia lo mismo. Yo quiero que se me copie la fila que esté más abajo.

Gracias.

perdón me he equivocado cuando digo "A6" me refiero a B65 de la otra hoja

Gracias

Intenta con:

Código:

Sub proba_grup_B()
Dim Origen As Range, Destino As Range
  Set Origen = Sheets("B").[A65536].End(xlUp)
  Set Destino = Sheets("Definitivo x grupo").[B65536].End(xlUp).Offset(1, 0)
Range(Origen, Origen.Offset(0, 2)).Copy Destino
  Set Origen = Nothing : Set Destino = Nothing
End Sub

o alguna variante de esto.

Saludos, Cacho.

Ok pruebo con esto.

Gracias