Demande d'un code VBA

Bonjour,
Je suis un débuteur en code VBA et j'ai développer un code qui me permet d'envoyer le contenu d'une cellule à un base de donné sous excel en cliquant sur un bouton, mais je veux que ces donné sera envoyé à un endroit spécéfique "qui sera choisi manuellement par l'utilisateur".

voilà le code VBA que j'ai utilisé:

Sub Macro1()
'
' Macro1 Macro
'
Range("G9").Select
Selection.Copy
Sheets("Data base").Select
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Data Enter").Select
Range("H9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data base").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Data Enter").Select
Range("I9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data base").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Data Enter").Select
Range("I9").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("H9").Select
Selection.ClearContents
Range("G9").Select
Selection.ClearContents
End Sub


J'attend votre Réponse