[Spirosgr]

Αφού λοιπόν, «έχουμε» τον μηχανισμό, θα βάλεις την έκφραση (όχι συνάρτηση):

Dim NextRow As Long
NextRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row + 1

Η έκφραση αυτή, «δίνει» στην μεταβλητή NextRow, την πρώτη διαθέσιμη κενή γραμμή.

Θα πρέπει να την βάλεις στον κώδικα, πριν γίνει χρήση του NextRow.
Αν δεν συντρέχουν άλλοι λόγοι, μπορεί να μπεί αμέσως μετά το
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Όπου:
Sheet1 = κωδικό όνομα φύλλου (πελατολόγιο)
Rows.Count, 1 = το 1 είναι η στήλη Α. Θα το αλλάξεις, με πραγματική στήλη
η οποία θα έχει πάντα τις απαιτούμενες γραμμές, για να σε καλύπτει.