prompt VBA para Copiar e colar da caixa de combinação na célula ativa

Question

Alguém poderia me ajudar a copiar e colar a partir da caixa de combinação na célula ativa e código abaixo mencionado criado para copiar e colar do menu suspenso na célula ativa, mas eu preciso de um código para copiar e colar em qualquer célula onde existe cursor

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

De comentários -

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

supersam