Excel - Replicar información de un libro a otro

' Número de columnas con datos

Private Const MAX_COLUMNAS = 3

Public Sub ActualizarHoja()

    Dim fila As Long

    Dim columna As Integer

    ' Inicializamos las variables de control

    fila = 2

    columna = 1

    ' Recorremos la Hoja 2 comparando los datos con la Hoja 1

    Do While Hoja2.Cells(fila, 1) <> ""

        If Hoja1.Cells(fila, 1) = "" Then

            ' Nuevos datos

            For columna = 1 To MAX_COLUMNAS

                Hoja1.Cells(fila, columna) = Hoja2.Cells(fila, columna)

            Next columna

        End If

        fila = fila + 1

    Loop

End Sub

Public Sub CopiarHoja()

    Dim fila As Long

    Dim columna As Integer

    ' Inicializamos las variables de control

    fila = 2

    ' Recorremos la Hoja 2 copiando los datos a la Hoja 1

    Do While Hoja2.Cells(fila, 1) <> ""

        For columna = 1 To MAX_COLUMNAS

            Hoja1.Cells(fila, columna) = Hoja2.Cells(fila, columna)

        Next columna

        fila = fila + 1

    Loop

End Sub