Máximos colaboradores

Utiliza Selection.ListObject.ListRows.Add (1) en lugar de Selection.Insert Shift:=xlDown, COPYORIGIN:=xlFormatFromRightOrBelow

Lo que estás experimentando podría deberse a la forma en que insertas las nuevas filas. Cuando usas el método Insert, desplazas las celdas existentes hacia abajo y puede que no copie los bordes de las celdas desplazadas. Podrías necesitar agregar un código adicional para aplicar los bordes después de insertar una nueva fila. Así que con lo que podría participar en tu consulta sería con este ejemplo: With Sheets("MATRIZ").Rows(3).Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With