How do I copy information of one cell to a cell on another worksheet, when a specific cell is clicked?

Question

I've been trying to create a VBA macro that when I click on a certain cell (in excel), the information on another worksheet can get copied into the designated cells.

For instance, if I click on A1 in Worksheet1, then B20:C20 on worksheet3 is copied to B20:C20 of Worksheet2. Can anyone help me create this macro?

Answer 1

Try to follow this example below:

Private Sub CommandButton1_Click()
    Dim ws As Worksheet, ws1 As Worksheet
    Set ws = Sheets("KeyInformation")
    Set ws1 = Sheets("Factsheet")
    ws.Range("A2:Q2").Copy
    ws1.Range("B9").PasteSpecial Paste:=xlPasteAll, Transpose:=True
    Application.CutCopyMode = False
    ws1.Activate
End Sub