Macro "extraire un tableau"

Bonjour à tous,

J'ai à nouveau besoin de votre aide:
Dans un classeur Excel, j'ai un tableau qui comporte plusieurs lignes, mais seulement quelques-unes seront remplies (je ne sais pas combien car cela change d'une semaine à l'autre).
Ce que je souhaite, c'est extraire ce tableau dans un nouveau classeur en cliquant sur un bouton, mais uniquement les lignes remplies!

Pour l'instant, j'ai cette macro qui extrait le tableau, mais elle prend toutes les colonnes, même les vides.... :

Sub Macro9()
'
' Macro9 Macro
'
Range("a1:g1").Select
Range(Selection, Selection.End(xlDown)).Select
Sheets("Feuil2").Select
Sheets("Feuil2").Copy
Windows("GECO POSTE L HOMME D ARMES_REF.xls").Activate
End Sub

Comment faire svp?

Merci et bonne journée