Sub copyDan()
    Dim shIsx As Worksheet, lRow As Long

    Set shIsx = Sheets("ЗГП")

    lRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
    'копирование и втавка значений
    shIsx.Range("A2:G2").Copy
    Cells(lRow, 2).PasteSpecial Paste:=xlPasteValues

    shIsx.Range("H2:G2").Copy
    Cells(lRow, 18).PasteSpecial Paste:=xlPasteValues

    Cells(lRow, 22).Value = shIsx.Range("K2").Value
    Cells(lRow, 32).Value = shIsx.Range("L2").Value

End Sub

ActiveSheet.ListObjects("Закупки").Range.SpecialCells(xlCellTypeVisible).Select

=$B$4:ИНДЕКС($B$4:$E$59;56;ПОИСКПОЗ($L5;$B$3:$E$3;0))

=ИНДЕКС(График!$A$3:$AF$54;ПОИСКПОЗ($A5;График!$A$3:$A$54;0)+3;СТОЛБЕЦ())

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
    If Not Sh.Name Like ("БАЗА") Then
        Sheets("БАЗА").Select
    Else
        Sheets(mySh).Range(Cl).Value = Target.Value
        Sheets(mySh).Select
    End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Sh.Name Like ("БАЗА") Then
        mySh = Sh.Name
        Cl = Target.Address
    End If
End Sub