[Tasos]

Διογένη, με διπλό κλικ πάνω σε ένα κελί της στήλης A μπορεί να καταχωρείται αυτόματα
το αμέσως μεγαλύτερο νούμερο από το max της στήλης.

Κάνε δεξί κλικ στην καρτέλα του φύλλου που σε ενδιαφέρει και επίλεξε Προβολή κώδικα.

Στο παράθυρο VBE που θα εμφανιστεί επικόλλησε τον παρακάτω κώδικα VBA:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 Then
        If IsEmpty(Target) Then
            Cancel = True
            Target.Value = Application.Max(Range("A:A")) + 1
            
            'Χρησιμοποιώντας την παραπάνω γραμμή χάνεται η δυνατότητα αναίρεσης (Undo) της εφαρμογής.
            'Αν αυτό αποτελεί πρόβλημα τότε μπορεί εναλλακτικα να χρησιμοποιηθούν οι 2 παρακάτω γραμμές:
            'SendKeys Application.Max(Range("A:A")) + 1
            'SendKeys "^{ENTER}"
            
        End If
    End If
End Sub

Στις ρυθμίσεις της εφαρμογής:

Φρόντισε οι μακροεντολές να είναι ενεργοποιημένες και το αρχείο να βρίσκεται σε μια από τις αξιόπιστες θέσεις που έχει επιλέξει.

Τάσος