Boucle simple avec recherve V

Bonjour à tous,

Voici en pièce jointe le fichier de récolte d'informations, je m'explique :

L'objectif est de remplir les cellules en surbrillance jaune par des valeurs se trouvant dans un autre classeur (G4,B4, et pour la date 2 cellules H5,H6).
Seulment il faut créer un boucle pour ce simple encodage et fusionner 2 cellules en une seule...
C'est la que je suis coincé...
Ci-dessous voici le début de code attaché au bouton d'un autre classeur :

Sub envoyer_Click()
Dim y As String, x As String

y = Sheets("Commande").Range("G4").Value

x = Sheets("Commande").Range("B4").Value

z = Date 'avec la fusion des deux cellules???

Workbooks.Open Filename:="H:\GESTION DE PRODUCTION\Analyse du système.xls", UpdateLinks:=0
Sheets("Informations ").Select

If Range("B2").Value = "" Then

'copier les valeur
'ou passer à la ligne suivante



Ensuite est-ce possible d'y ajouter des informations (surbillance rouge et verte) en utilisant une recherve V mais avec le bouton et code VBA (avec un autre classeur)?

Merci pour votre aide précieuse...