Macro_Copio dato a otro archivo

Si los libros están abiertos esta macro hace el trabajo. No olvides calificar y cerrar la pregunta.
...
Sub Macro1()
    Windows("Trabajos.xls").Activate
    Sheets("2010").Select
    Range("A1").Select
    Selection.Copy
    Windows("Estadistica.xls").Activate
    Range("B15").Select
    If IsEmpty(ActiveCell.Value) Then
        ActiveSheet.Paste
    ElseIf Not IsEmpty(ActiveCell.Value) And IsEmpty(ActiveCell.Offset(1, 0).Value) Then
        ActiveCell.Offset(1, 0).Select
        ActiveSheet.Paste
    Else
        Selection.End(xlDown).Select
        ActiveCell.Offset(1, 0).Select
        ActiveSheet.Paste
    End If
End Sub

Excelente la velocidad con la que respondiste edwinhenao, aclaración:
El archivo no esta abierto, debo abrirlo:
Set File = Application.Workbooks.Open("D:\Base de datos\Estadistica.xls")
se lo agrego antes de:
Windows("Estadistica.xls").Activate
Pero me larga un error en la fila:
Range("B15").Select
No me dice porque... ¿tiene qué ver los formatos de las celdas? ¿Si estoy copiando fechas u otro tipo de variable?
Estamos en contacto, desde ya muchas gracias.-