Excel - cómo copiar la celta pulsada con el ratón en otra celda

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Lin As Integer, Col As Integer

    Col = Target.Column

    Fil = Target.Row

    If Col >= 50 And Col <= 63 And Fil >= 2 And Fil <= 14 Then

        Cells(15, 50) = Target.Value

    End If

    If Col >= 65 And Col <= 77 And Fil >= 2 And Fil <= 14 Then

        Cells(15, 65) = Target.Value

    End If

End Sub