[VBA] Αυτόματη συμπλήρωση

[mdragon]

Καλησπέρα σε όλη την παρέα,
θα ήθελα για άλλη μία φορά την βοήθειά σας.
Σε ένα φύλλο με πολλές καταχωρήσεις το όνομα του πελάτη φαίνεται μόνο στην πρώτη γραμμή ακόμα και αν υπάρχουν δεδομένα και στις επόμενες γραμμές.
Δεν μπορώ όμως να χρησιμοποιήσω το φίλτρο σε εκείνη την στήλη.
Προσπάθησα να κάνω αντιγραφές με το shift + xldown αλλά είναι πολλές οι γραμμές.
Έφτιαξα αυτόν τον κώδικα (με τα λίγα που ξέρω)
αλλά έπρεπε να το κάνω σε κάθε γραμμή και το χειρότερο ότι όταν έφτανε στον τελευταίο πελάτη αντέγραφε τις τιμές έως το τέλος του φύλλου

Sub FillOut()
Dim c As Range, d As Range
Application.ScreenUpdating = False
Range("DataSource").Select

Set c = Range("DataSource").End(xlDown).Offset(0)
c.Select
Selection.Copy

Set d = ActiveCell.Offset(1)
d.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Application.ScreenUpdating = True
End Sub

Τονίζω ότι οι γραμμές δεν είναι ποτέ ίδιες.
Επισυνάπτω ένα παράδειγμα δεδομένου ότι δεν μπορώ να ανεβάσω αρχείο με προσωπικά δεδομένα.