[Spirosgr]

Τελικά για καλύτερα αποτελέσματα μπορείς να βάλεις αυτό
όπου έχουν χρησιμοποιηθεί οι κωδικές ονομασίες των φύλλων
ώστε και να αλλάξει κάποιος το όνομα του φύλλου να μην επηρεάζει τον κώδικα
Ονόμασε πίσω από την vba το φύλλο Αρχική ....shStart
Ακόμα έχουν ονομαστεί οι περιοχές T3:T500 & U3:U500
Για να λειτουργήσει η διαγραφή του κουμπιού πρέπει το φύλλο αρχική να είναι ξεκλειδωμένο

Sub CountandDelete()
    Dim i As Integer
    If MsgBox("Το κείμενό σου", _
              vbYesNo + vbQuestion + vbDefaultButton2) <> vbYes Then
        Exit Sub
    End If
    Application.ScreenUpdating = False
    i = ShArchive.Range("b" & Rows.Count).End(xlUp).Row
    If i > 3 Then ShArchive.Range("A4:aq" & i).Delete Shift:=xlUp
    i = xreosis.Range("b" & Rows.Count).End(xlUp).Row
    If i > 2 Then xreosis.Range("A3:ah" & i).Delete Shift:=xlUp
    i = katanomi.Range("b" & Rows.Count).End(xlUp).Row
    If i > 2 Then katanomi.Range("A3:s" & i).Delete Shift:=xlUp
    katanomi.Range("rngFormula1").FormulaR1C1 = "=iferror(IF(R[2]C[-18]="""",R[1]C,R[2]C[-18]),"""")"
    katanomi.Range("rngFormula2").FormulaR1C1 = "=iferror(IF(AND(R[2]C[-19]="""",R[2]C[-16]=""""),""End of List"",R[2]C[-1]&"" ""&R[2]C[-16]),"""")"
    shStart.Shapes(Application.Caller).Delete
    MsgBox ("Όλες οι εντολές  ολοκληρώθηκαν με επιτυχία!"), vbInformation, "SpirosgrInfo"
End Sub