Copiar a otro libro 2

Dado que son casi pocos registros y va a ser hecho en un entorno local
me decidi ir copiando una fila a la vez.
En el archivo de prueba las columnas son A B C D, cada fila va desde 2
hasta 32, la hoja destino creada por un template tiene el nombre de
"2005", j contiene elnumero de la linea que se esta copiando de los
datos, k la linea de destino, wrkb

Set wrkb = Application.Workbooks.Add("Base.xls")
.
EsteLibro.Sheets("Hoja de Análisis").Range("A" & Trim(Str(j)), "D" &
Trim(Str(j))).Select
Selection.Copy
wrkb.Worksheets("2005").Range("A" & Trim(Str(k))).Select
'wrkb.Paste Range("A" & Trim(Str(k)))
k = k + 1



Me indica error en fallo en el metodo select de la clase range en
EsteLibro.Sheets("Hoja de Análisis").Range("A" & Trim(Str(j)), "D" &
Trim(Str(j))).Select

Se requiere un objeto
wrkb.Worksheets("2005").Range("A" & Trim(Str(k))).Select