Option Explicit

Sub y()
 Application.ScreenUpdating = False
 Worksheets("Sheet1").Range("J2").AutoFilter _
 Field:=1, _
 Criteria1:=">" & "14"   ', _

 Dim Sorce, Targt As Worksheet
    Set Sorce = ThisWorkbook.Sheets("Sheet1")
    Set Targt = ThisWorkbook.Sheets("Sheet2")

    Sorce.Range("J2:J100").SpecialCells(xlCellTypeVisible).Copy
    Targt.Cells(1, 1).PasteSpecial
    Sheets("Sheet2").Activate
    Sheets("Sheet2").Range("A1").Select
    Macro1
   
    
    Range("A1").Select
    Application.CutCopyMode = False
    Application.Wait Now + #12:00:02 AM#
    
Sheets("Sheet1").Activate
Range("A1").Select

 On Error Resume Next
'If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

'If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData
Cells.AutoFilter
Application.ScreenUpdating = True

End Sub

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveSheet.Shapes.AddChart.Select
    Dim rng As Range
   
    Dim cht As Object
    Dim LastRow As Long
    
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    Set rng = ActiveSheet.Range("A1:A" & LastRow)
    'rng.Select

    ActiveChart.SetSourceData Source:=rng
    ActiveChart.ChartType = xlColumnClustered
End Sub

Option Explicit

Sub FiltrCols()
Dim lrow  As Long
Dim piece
Worksheets("Sheet2").Range("L2").AutoFilter _
    Field:=2, _
    Criteria1:=">" & "14"
Application.ScreenUpdating = False
    Dim Sorce, Targt As Worksheet
    
    
    Sheets("Sheet3").UsedRange.Delete
    
    '##delete old chart (if exists) from sheet
    If Sheets("Sheet3").ChartObjects.Count > 0 Then
        Sheets("Sheet3").ChartObjects(1).Delete
    End If

lrow = Range("L16").End(xlUp).Row
    For Each piece In Array("L2:L16", "M2:M16")
         Range(piece).Copy
        
        With Sheet3.Range(piece).Offset(0, -11)
            .PasteSpecial
            .PasteSpecial xlPasteValues
        End With
        
    Next
    
Sheet3.Rows(1).EntireRow.Delete

Create_Chart_Variable_Rows_NEW

Application.CutCopyMode = False

Sheets("Sheet3").Activate

    
    Sheets("Sheet3").Range("A1").Select
    
    
    
    
   
    
    Range("A1").Select
    Application.CutCopyMode = False
    
    Sheets("Sheet2").Activate
    Range("A1").Select
    
     On Error Resume Next
    
    Cells.AutoFilter
    Application.ScreenUpdating = True
    
    MsgBox "Done !"
 
End Sub

Sub Create_Chart_Variable_Rows_NEW()

'

On Error Resume Next

     Dim ws As Worksheet
     Set ws = Sheets("Sheet3")
     Dim rng As Range
     Dim objChrt As ChartObject
     Dim chrt As Chart
'

Dim r As Long
   r = ws.Cells(Rows.Count, "A").End(xlUp).Row

'

     With ws

        Set rng = .Range("A1:A" & r & ",B1:B" & r)

         .Shapes.AddChart
         Set objChrt = .ChartObjects(.ChartObjects.Count)
         Set chrt = objChrt.Chart

         With chrt
             .ChartType = xlColumnClustered
             .SetSourceData Source:=rng
         End With
     End With

End Sub