problema con macro

[mrocf]

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.