Pasar a otro libro

Ola muy buen día tenga
mi problema es el siguiente tengo un libro de exel donde están unas hojas tipo formulario
que son día por día lo que necesito hacer es sacar unos datos solo información necesaria
y pasarlo en otro libro pero quiero que de una hoja se obtenga lo que deseo me abra otro libro y lo ingrese de otra hoja lo mismo y lo ingrese en el libro antes mencionado pero abajo delo que ya de había extraído esto es lo que tengo pero me añade una columna o fila según su uso lo que me gustaría es un consejo para algo no tan largo esto es solo una parte del código
de antemano gracias
Sub ACTUALIZARA()
'ESTO ES PARA PIRMER TURNO BSIN BOTÓN ALGUNO
'_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
'TRITURACIÓN
Range("I12").Copy
Workbooks.Open ("C:\Documents and Settings\NORMA\Mis documentos\RAUL\ABRAHAM AYON.XLSX")
'ESTO ES PARA EL REPORTE DIARIO
Dim WR As Window
Set WR = Windows("CONTROL MOLINO DICIEMBRE.xlsM")
'Y ESTO PARA LA BASE DE DATOS
Dim WBASE As Window
Set WBASE = Windows("ABRAHAM AYON.xlsx")
'Y ESTO OTRO PARA LA HOJA DE TRABAJO EN LA BASE DE DATOS
Dim WS As Worksheet
Set WS = Worksheets("DICIEMBRE")
'_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
'PARA FECHA
WBASE.Activate
WS.Select
Range("D2").Select
Selection.Insert Shift:=xlDuplicate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.NumberFormat = "m/d/yyyy"
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 90
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Font.Size = 11
'_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
'PARA EL TURNO
WR.Activate
Range("J111").Copy
' Workbooks.Open ("C:\Documents and Settings\NORMA\Mis documentos\RAUL\ABRAHAM AYON.XLSX")
WBASE.Activate
WS.Select
Range("D3").Select
Selection.Insert Shift:=xlDuplicate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
'PARA NIVEL
WR.Activate
Range("B16").Copy
' Workbooks.Open ("C:\Documents and Settings\NORMA\Mis documentos\RAUL\ABRAHAM AYON.XLSX")
WBASE.Activate
WS.Select
Range("D4").Select
Selection.Insert Shift:=xlDuplicate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False