[Spirosgr]

Καλησπέρα
Χρήστο
Το βιβλίο αυτό είναι για 2007 και νεώτερο
Τα φύλλα δεν είναι κλειδωμένα
Μπορείς να κάνεις μορφοποιήσεις
Ο κώδικας να συνδεθεί σε κουμπί (υπάρχει και σε άλλα συνημμένα πιο παλιά στο φόρουμ)

'Εισαγωγή γραμμής πίνακα
Sub AddTblRows()
    Application.ScreenUpdating = False
    ActiveSheet.Range("B4").ListObject.ListRows.Add (1)
End Sub

Όπου B4 το πρώτο αριστερά κελί κάτω από τις κεφαλίδες
Όπου Add (1) σημαίνει στην πρώτη γραμμή
αν γίνει Add (2) μετά την πρώτη γραμμή (δεύτερο)
ΥΓ: Σε παλιότερο ερώτημα σου για την "Μπάρα κύλισης φίλτρου" οι απαντήσεις ήταν για να κάνεις
τις λίστες δυναμικές και να μην έχεις κενά ... εδώ ;