eduardocbsa

Prueba con este código es para insertar después de la que esta señalada Sub CopiarFila_Click() Dim Fila As Long With Worksheets("Hoja1") Fila = ActiveCell.Row If WorksheetFunction.Count(.Rows(Fila)) = 0 Then MsgBox "No hay datos en la fila " & Fila...

Puedes probar con esto Debes tener una tabla en la hoja1, con un gráfico, las series deben estar en F2 y F3 si tienes dudas enviame tu email para enviarte el archivo de ejemplo 'usa el color del fondo de la celda...