[Spirosgr]

Γιώργο φυσικό είναι να βγάζει #ΑΝΑΦ
Εφ' όσον διαγράφουμε περιοχές που "παίρνουν" οι τύποι
Πρέπει λοιπόν να τους ξαναχτίσουμε
Ονόμασε T1=mycell1 και U1=mycell2
Πέρασε από την αρχή αυτόν τον κώδικα στο Module διαγράφοντας όλα τα άλλα.

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

Έχει τσεκαριστεί και λειτουργεί κανονικά
επίσης στον προηγούμενο κώδικα αντέγραφες το T1 και U1 σε T3 και U2 (αντί U3) οπότε και οι τύποι έπαιρναν από άλλες μεριές
ΥΓ
Ξέχασα στον κώδικα την γραμμή που διαγράφει το κουμπί
Πέρασέ την πριν το τελευταίο msgbox