Excel - volcar datos de un archivo a otro

Option Explicit

Sub Copiar_Datos()

    Dim Mes As Byte, Col As Long, Tipo As Byte, Col_Orig As Long

    Dim Libro As Workbook, Num As Integer, _

         Hoja As Worksheet

    Set Libro = Workbooks("PLANIFICACION 960 2024.xlsx")

    Set Hoja = Libro.Worksheets("POTENCIAL PREP. POR TURNO")

    ' ---&--- Recorre todo los meses

    For Mes = 1 To 12

        ' ---&--- Busca si existe la hoja

        For Num = 1 To Sheets.Count

            If Sheets(Num).Name = UCase(MonthName(Mes)) Then

                With Sheets(UCase(MonthName(Mes)))

                    ' ---&--- Recorre la fila 1 desde la columna 3 saltando 4 columnas

                    Col = 3

                    While .Cells(1, Col) <> Empty

                        ' ---&--- Busca en PLANIFICACIÓN en que columna esta la fecha

                        Col_Orig = Application.WorksheetFunction.Match(.Cells(1, Col), Hoja.Range("11:11"), 0)

                        ' ---&--- Asigna el valor en cada una de las columnas

                        For Tipo = 1 To 3

                            Select Case Trim(.Cells(10, Col + Tipo))

                                Case "MAÑANA": .Cells(43, Col + Tipo) = Hoja.Cells(13, Col_Orig)

                                Case "TARDE":  .Cells(43, Col + Tipo) = Hoja.Cells(14, Col_Orig)

                                Case "NOCHE":  .Cells(43, Col + Tipo) = Hoja.Cells(15, Col_Orig)

                            End Select

                        Next

                        Col = Col + 4

                    Wend

                End With

                Exit For

            End If

        Next

    Next

End Sub