Macro para copiar rango en una hoja sin guardar

Tengo problemas con una macro en excel, mi objetivo es copia un campo seleccionado de un libro cerrado a una celda de unahoja nueva ( no guardada)
Sub Titulo()
'
' Titulo Macro
' Macro grabada el 14-09-2011 por lhormazabal
'
' Acceso directo: CTRL+t
'
Rows("1:1").Select
Selection.Insert Shift:=xlDown
'esta es la parte que no logro programar
'se debe abrir un xls cerrado y copiar Range("A4:K4")
'a la hoja nueva NO GUARDADA
Application.ScreenUpdating = False
Application.EnableEvents = False
Workbooks.Open ("C:\Documents and Settings\lhormazabal\Escritorio\PLANTILLA CONTEO.xls")
Application.EnableEvents = True
Range("A4:K4").Copy Destino.Worksheets(1).Range("B1")
ThisWorkbook.Activate
'esta es otra de la funciones, pero no preseta problemas
Columns("A:A").Select
Selection.NumberFormat = "m/d/yyyy"
Columns("L:L").Select
Selection.Delete Shift:=xlToLeft
Columns("J:J").Select
Selection.Delete Shift:=xlToLeft
Range("G4").Select
End Sub