Excel - cómo capturar 1 tabla de muchas, según la que elija cada vez (con la cámara de excel, o macro, o etc

Fila_Tabla_Origen = ww

Colu_Tabla_Origen = xx

Fila_Tabla_Destin = YY

Colu_Tabla_Destin = zz

For F=0 to 12

    For C=0 to 12

        Cells(F+Fila_Tabla_Destin, C+Colu_Tabla_Destin) = Cells(F+Fila_Tabla_Origen, C+Colu_Tabla_Origen)

    Next

Next

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Fila_Destin As Long, f As Long, Texto As String, _

        Colu_Destin As Long, c As Long

    Dim Lin As Integer, Col As Integer

    Col = Target.Column

    Fil = Target.Row

    If Col >= 65 And Col <= 77 And Fil >= 3 And Fil <= 15 Then Cells(6, 13) = Target.Value

    If Col >= 65 And Col <= 77 And Fil >= 3 And Fil <= 15 Then Cells(12, 13) = Target.Value

    If Col >= 18 And Col <= 30 And Fil >= 3 And Fil <= 15 Then Cells(6, 13) = Target.Value

    If Col >= 18 And Col <= 30 And Fil >= 3 And Fil <= 15 Then Cells(12, 13) = Target.Value

    ' ---&---

    If Col = 13 And Fil = 7 Then

        Texto = Cells(7, "M")

        Fila_Destin = 42

        Colu_Destin = 4

        For Fil = 42 To 580 Step 15

            For Col = 37 To 134 Step 14

                If Texto = Cells(Fil, Col) Then

                  For f = 0 To 12

                       For c = 0 To 12

                           Cells(f + Fila_Destin, c + Colu_Destin) = Cells(f + Fil, c + Col)

                       Next

                   Next

                   Exit Sub

                End If

            Next

        Next

    End If

End Sub

Public Function MiEvento(rngCelda As Range)

    Range("seleccion").Value = rngCelda.Value

Fila_Tabla_Origen = ww

Colu_Tabla_Origen = xx

Fila_Tabla_Destin = D10

Colu_Tabla_Destin = P23

For F = 0 To 12

    For C = 0 To 12

        Cells(F + Fila_Tabla_Destin, C + Colu_Tabla_Destin) = Cells(F + Fila_Tabla_Origen, C + Colu_Tabla_Origen)

    Next

Next

End Function