Cambio de ventanas macro

He realizado una macro en la cual cojo datos de diferentes excels, y los copio en el excel principal. Mi problema es que nose como cambiar de ventana para que me lo copie en el excel que quiero. Y una vez copiado vuelva al anterior.
Una vez que recorra el excel y las hojas que tenga... Lo cierre.
Te dejo el codigo kn los bucles que tengo y aver si puedes ayudarme...
Gracias:
Sub Macro1()
Dim archivo As String
ruta = "\\Spirit\group\cecor\SG\5-Procesos\Desarrollar_Procesos\TRABAJOS\2009\"
archivo = Dir(ruta, vbDirectory)
Dim cont As Long
Dim c As Long
Dim hoja As Long
cont = 6
Dim filault As Integer
Dim filault1 As Integer
While archivo <> ""
    If archivo Like "T-09-001*" Or archivo Like "T-09-002*" Then
        'If archivo Like "T-09-003*" Or archivo Like "T-09-014*" Or archivo Like "T-09-015*" Then
            'Workbooks.Open Filename:="\\Spirit\group\cecor\SG\5-Procesos\Desarrollar_Procesos\TRABAJOS\2009\" & archivo & "\kk.xls"
        'Else
            Workbooks.Open Filename:="\\Spirit\group\cecor\SG\5-Procesos\Desarrollar_Procesos\TRABAJOS\2009\" & archivo & "\1_Comunicacion\4_Retroalimentacion\kk.xls"
            For i = 1 To Worksheets.Count
                hoja = i
                If i = 1 Then
                    Range("B10").Select
                     Selection.Copy
                End If
                If i = 2 Then
                    Range("C20").Select
                    Selection.Copy
                     ActiveWindow.WindowState = xlMinimized
                End If
                If i = 3 Then
                    Range("D30").Select
                     c = Selection.Copy
                     ActiveWindow.WindowState = xlMinimized
                End If
                If i > 3 Then
                    Range("D30").Select
                     c = Selection.Copy
                     ActiveWindow.WindowState = xlMinimized
                End If
           'For o = 1 To Worksheets.Count
                a = "D" & cont & ""
                Range(a).Select
                ActiveSheet.Paste
                b = "A" & cont & ""
                Range(b).Select
                ActiveCell.Value = (archivo & " HOJA:" & hoja)
            cont = cont + 1
            Application.SendKeys ("%TAB")
            Next i
           'Workbooks.Close Filename:="\\Spirit\group\cecor\SG\5-Procesos\Desarrollar_Procesos\TRABAJOS\2009\" & archivo & "\1_Comunicacion\4_Retroalimentacion\kk.xls"
End If
    archivo = Dir
Wend
Range("G8").Select
ActiveCell.FormulaR1C1 = "SUM(D6:D)"
End Sub