COPIER DEUX PLAGES DIFFERANTE

Bonjour le forum

Voilà,je voudrais savoir comment copier deux plage de taille diffèrantes l'une sous l'autre à partir d'un Userfrom ?

je pensais passer par une procédure du type:

For X = 29 to 50 Step mais je ne connais pas du tout pourier vous m'aider sachant que j'ai deux macros qui commances par :Range ('A1'). voici ma procédure :
Private Sub CommandButton2_Click() 'bounton 'Enregistrer la fiche'
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Dim Mois As String


Mois = ActiveSheet.Range('C3').Value
Set Wb1 = Workbooks.Open(Chemin)
Set Wb2 = ThisWorkbook

ActiveWorkbook.Save
With Wb2 '.Activate
.Sheets('Détail').Range('A1:G29').Copy
End With
Sheets(Mois).Range('A65536').End(xlUp).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range('A1').Select
With Wb2 '.Activate
Run 'MacForDét'
End With

End Sub
la suite est :
With Wb2 '.Activate
.Sheets('Facture').Range('A1:G50').Copy
End With
Sheets(mois).Range('A65536').End (XlUp).Offset(1,0).PastSpecial Paste:=XlValues,Operation:=XlNone,SkipBlanks:=False,Transpose:=False
Range('A65536').End(XlUp).Offset(1,0).Select
With Wb2'.Activate
Run'MacForFact'
End With
End Sub

Mon souci Et que la deuxième macros se Dèclanche en ('A1') au lieu de ('A30') .

Si vous Aviez une solution à se petit souci se serais formidable .Je vous remercie par avance et vous dit à plus . br44