Buenas noches, Aprovecho este foro para consultar un problema ha resolver,  el cual relato a continuación: Debo realizar una macro que al ejecutarla abra un libro llamado “GraficadeProdc.xls” en la hoja “Base” se debe llevar un registro diario de la producción de la empresa. El libro Origen  “Producción.xls” en la hoja llamada “PRODUCCIÓN” se encuentran los datos a copiar, entre las Celdas “C18:F18”.

Admito que me he guiado de otros foros e información que he encontrado en a red, pero; estoy bloqueado en el paso en que al copiar los datos desde el libro origen hasta el libro destino, lo haga en la fila consecutiva es decir; el día 1 en la fila 1 consecutivamente.

Trate de restar las fechas y el resultado de esta operación me da la fila, claro conociendo que las columnas permanecen constante,Este es el código que estoy realizando

Sub Copiar_Celdas()

'Definir objetos a utilizar
Dim wbDestino As Workbook, _
    wsOrigen As Excel.Worksheet, _
    wsDestino As Excel.Worksheet, _
    rngOrigen As Excel.Range, _
    rngDestino As Excel.Range

Dim Dia As String
Dia = Worksheets("PRODUCCIÓN_STM").Range("C12").Value ' Esta es la instrucción que me da la fila

'Indicar el libro de Excel destino
Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "\GraficadeProdc.xls")

'Activar este libro
ThisWorkbook.Activate

'Indicar las hojas de origen y destino
Set wsOrigen = Worksheets("PRODUCCIÓN")
Set wsDestino = wbDestino.Worksheets("Balance")

'Indicar la celda de origen y destino
Const celdaOrigen = "C18:F18"
celdaDestino = "B5:E5" 'Aqui esta el problema, necesito que este rango cambie con el día

'Inicializar los rangos de origen y destino
Set rngOrigen = wsOrigen.Range(celdaOrigen)
Set rngDestino = wsDestino.Range(celdaDestino)

'Seleccionar rango de celdas origen
rngOrigen.Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy


'Pegar datos en celda destino
rngDestino.PasteSpecial xlPasteValues
Application.CutCopyMode = False

'Guardar y cerrar el libro de Excel destino
wbDestino.Save
wbDestino.Close


End Sub