Запрос VBA для копирования и вставки из поля со списком в активной ячейке

Question

Может ли кто-нибудь помочь мне скопировать и вставить из поля со списком в активной ячейке и нижеупомянутый код, созданный для копирования и вставки из выпадающего списка в активной ячейке, но мне нужен код для копирования вставки в любой ячейке, где есть курсор

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

Answer 1

Из комментариев -

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

supersam