[Spirosgr]

Καλημέρα
Διαγραφή
με δεξί κλικ επάνω στην σειρά του πίνακα που θέλεις να διαγράψεις και
διαγραφή "σειρών πίνακα"
Η Α αυτόματα αναδιαρθρώνεται γιατί έχει τύπο
Ταξινόμηση
Έτσι το είχαμε πριν μου πεις να ταξινομηθεί με κωδικό λίστας συστημάτων (κωδικό ΚΛΣ)
Λοιπόν Αυτό στο ThisWorkbook για να :
Ανοίγει το βιβλίο πάντα στο φύλλο data και πάντα ταξινομημένο ως προς Β στήλη ΚΩΔΙΚΟΣ ΣΥΣΤΗΜΑΤΟΣ

Private Sub Workbook_Open()
    Sheet1.Activate
    ActiveWorkbook.Worksheets("Data").ListObjects("Table1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Data").ListObjects("Table1").Sort.SortFields.Add _
            Key:=Range("Table1[ΚΩΔΙΚΟΣ ΣΥΣΤΗΜΑΤΟΣ]"), SortOn:=xlSortOnValues, Order:= _
            xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Data").ListObjects("Table1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Και αυτό σε αντικατάσταση του κώδικα στην Module

Sub InsertNewData()
    Application.ScreenUpdating = False
    'αντιγραφή περιοχής
    Range("InputRange").Copy
    Range("B" & ActiveSheet.Range("B" & _
                                  Range("B:B").Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste: _
                                                              =xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                             :=False, Transpose:=False
    Application.CutCopyMode = False
    'ταξινόμιση κατά κωδικό και κατόπιν όνομα
    ActiveWorkbook.Worksheets("Data").ListObjects("Table1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Data").ListObjects("Table1").Sort.SortFields.Add _
            Key:=Range("Table1[ΚΩΔΙΚΟΣ ΣΥΣΤΗΜΑΤΟΣ]"), SortOn:=xlSortOnValues, Order:= _
            xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Data").ListObjects("Table1").Sort.SortFields.Add _
            Key:=Range("Table1[ΟΝΟΜΑΤΕΠΩΝΥΜΟ]"), SortOn:=xlSortOnValues, Order:= _
            xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Data").ListObjects("Table1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Application.ScreenUpdating = True
    'καθαρισμός περιοχής InputRange
    Range("InputRange").ClearContents
    Range("A1").Select
    'Msg
    MsgBox ("Entry registered as New System"), vbInformation
End Sub