Copier la dernière ligne d'une feuille et coller dans la dernière ligne d'une feuille différente VBA

À l'heure actuelle, j'ai un classur contenant une fiche maîtresse et plusieurs fiches individuelles. J'écris un code pour regarder la colonne du client, copyr la ligne, puis la coller dans leur feuille respective. À la fin, je souhaite que la dernière ligne de ma feuille de model soit collée comme dernière ligne pour la feuille de client. Il s'agit de calculer les moyennes. Jusqu'à présent, cela fonctionne mais la dernière ligne est collée au sumt de la feuille mais pas au bas. Je ne peux pas comprendre comment l'get pour être la dernière rangée.

Sub copyPasteDataCustomer() Dim sws As Worksheet Dim tws As Worksheet Dim cel As Range Set sws = Sheets("Master") For Each cel In sws.Range("B5:B" & Range("B" & Rows.Count).End(xlUp).Row) Set tws = Sheets(CStr(cel.Value)) cel.EntireRow.Copy tws.Range("A" & Rows.Count).End(xlUp).Offset(1) Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Canvus") Dim ws2 As Worksheet: Set ws2 = tws For i = 2 To ws1.Range("G" & Rows.Count).End(xlUp).Row ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, "G").End(xlUp)) Next i Next cel End Sub 

• Feuilles de calcul multiples excel au format PDF
• Terminer une input d'une list déroulante dans une colonne, en fonction du choix d'une autre colonne
• Erreur de syntaxe VBA OPENROWSET dans la clause FROM
• Axlxs gem – Ajoutez automatiquement des colonnes de date
• Excel VBA – Remplacer les cellules nuls dans les colonnes CF avec Zéro si la colonne A contient une valeur