Te anexo la macro con los cambios
Sub CREAREPORTE()'Modificado.Por.DAMSheets("CAPTURA").ActivateMiReporte = Range("O7")Set l1 = ThisWorkbookSheets("REPORTE MENSUAL").Copy Cells.Copy Range("A1:E100").Select Selection.PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, _ SkipBlanks:=False, Transpose:=FalseSet l2 = ActiveWorkbook l1.Activate Sheets("BITACORA DE RECIBOS").Copy After:=l2.Sheets(l2.Sheets.Count) Cells.Copy Range("A1:M1000").Select Selection.PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.DisplayAlerts = FalseActiveWorkbook.SaveAs Filename:=MiReporte & " REPORTE MENSUAL.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=Falsel1.ActivateMsgBox "COPIA TERMINADA", vbInformation, "COPIAR"End Sub
Saludos. DAM
No olvides finalizar la pregunta.