[Spirosgr]

Καλησπέρα
Σε ένα βιβλίο που μπορεί να "δέχεται" κώδικα πχ .xlsm, .xlsb, .xls
εισάγουμε σε μια λειτουργική μονάδα τον πιο κάτω κώδικα ανάλογα με την περίπτωση:
πρώτος
Sub InsertNewRows()
Sheet1.Rows("1:2").Insert Shift:=xlDown
End Sub

Όπου Sheet1 το κωδικό όνομα του φύλλου.
*Ο κώδικας τρέχει στο συγκεκριμένο φύλλο

ή δεύτερος
Sub InsertNewRows()
ActiveSheet.Rows("1:2").Insert Shift:=xlDown
End Sub

*Ο κώδικας τρέχει στο ενεργό φύλλο

Εισάγουμε τα δεδομένα μας στα κελιά των γραμμών 1 και 2 μέχρι
όποια στήλη θέλουμε και τρέχουμε τον κώδικα.
Θα εισαχθούν 2 νέες γραμμές (1 και 2) και τα υπάρχοντα δεδομένα θα μετακινηθούν 2 γραμμές κάτω.