[nisgia]

Φίλε μου Γιώργο, νομίζω πως αυτή τη φορά έγινες κατανοητός.
Άλλαξε λοιπόν τη διαδικασία του CommandButton1 (Χ) με την παρακάτω
και πες μας αν έγινε αυτό που ζητάς:

Private Sub CommandButton1_Click()
    On Error Resume Next
    Range("A3").PasteSpecial xlPasteValues
    With Selection
        .Rows(.Rows.Count).Offset(1).Resize(100 - .Rows.Count).ClearContents
    End With
    If Err Then MsgBox Err.Description, vbExclamation, "Paste error"
End Sub

Η περιοχή "ευθύνης" της είναι 100 γραμμές κάτω από τη γραμμή 3 (περιοχή A3:Q102).
Αν θέλεις να αυξομειώσεις αυτόν τον αριθμό, άλλαξε το κόκκινο 100 στον κώδικά της.

Τα λέμε!
Γιάννης