Invite VBA pour Copier et coller de la liste déroulante dans une cellule active

Quelqu'un pourrait-il m'aider à copier et coller de la liste déroulante dans la cellule active et sous le code mentionné créé pour copier et coller du menu déroulant dans la cellule active mais j'ai besoin d'un code pour copier coller dans n'importe quelle cellule où se trouve le curseur

Sub Button1_Click()
Sheets("Sheet1").Select
ActiveSheet.Range("Value").Select
Selection.Copy
Sheets("Sheet1").Select
ActiveSheet.Range("C1048576").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

De commentaires -

Private Sub ComboBox1_Change() 
ActiveCell.Value = ComboBox1.Value 
End Sub 

supersam