Autres Copier coller dans #ongles avec VBA

Bonjour à tous pour faire suite à mon message précédent, voici le code que j'ai mais je voudrais qu'il puisse aller à la ligne quand je change de nom de fournisseur
je sais qu'il y a une notion de +1 à rajouter mais j'arrive pas à trouver comment le rajouter

Voici le code Merci d'avance

Sub Macro2()
'
' Macro2 Macro
'

'Copier coller fournisseur
Range("G7:I7").Select
Selection.Copy
Sheets("Tableau des commandes ").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

' copier coller Montant HT
Sheets("bon de commande ").Select
ActiveWindow.SmallScroll Down:=18
Range("G29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tableau des commandes ").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

' copier coller Conditions paiement
Sheets("bon de commande ").Select
Range("D29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tableau des commandes ").Select
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'Copier coller date de livraison
Sheets("bon de commande ").Select
ActiveWindow.SmallScroll Down:=-18
Range("D32").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=18
Range("D32").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tableau des commandes ").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


End Sub

Bonjour,

Ci-joint un fichier à tester

Bonne journée

Rossoneri83 à dit:

Bonjour,

Ci-joint un fichier à tester

Bonne journée

Cliquez pour agrandir...

Bonjour à vous

Vous avez tout à fait taper dans le mil c'est merveilleux merci infiniment pour votre soutien et support sur ce sujet vous êtes au TOP 👍 👏🥸🙋‍♂️