Public TableName
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A7")) Is Nothing Then
    If Target.Value <> "" Then TableName = Target.Value: CopyTable
End If
End Sub
Sub CopyTable()
Application.ScreenUpdating = False
On Error GoTo metka
With Sheets(2)
    RwsTable = .Cells.Find(What:=TableName, LookAt:=xlWhole).Row + 1
    .Range("B" & RwsTable & ":N" & RwsTable + 12).Copy [K3]: Exit Sub
End With
metka: If Err Then MsgBox "íå íàéäåíà " & TableName & ""
Application.ScreenUpdating = True
End Sub