Guten Tag an alle, habe hier eine Herausforderung, bei der ich nicht weiterkommen: Eine Rechnungsvorlage hat bis Row 306 alle Zellen mit Rahmenlinien vorformatiert. Nach Ausfüllen der Rechnung durch die Userform bleiben leere Rows zurück. bei denen möchte ich die Rahmenformatierung löschen. Den folgenden Code wende ich an, ohne Erfolg. Bitte um Hilfe!

ActiveSheet.Copy After:=Sheets(Worksheets.Count)
    On Error Resume Next 'Falls Blattname bereits existiert
     ActiveSheet.Name = "InvForm1"
    Worksheets("InvForm1").Activate
    Cells(OrderForm1.Rows.Count, 1).End(xlUp).Offset(1, 0).Select
    Range(ActiveCell, Range("i305")).Select
    With ActiveRange.Border
            .LineStyle = xlLineStyleNone
        End With