Фильтрация данных. Построение графика

Private Sub CommandButton1_Click()
Dim databook As Workbook
Dim datasheet As Worksheet
Dim Mybook As Workbook
Dim Mysheet As Worksheet
Dim i, j As Integer
s = Application.GetOpenFilename("Файлы (*.xls)(*.xls),*.xls,Файлы (*.xlsx)(*.xlsx),*.xlsx", , "Выбор файла")
Set databook = Workbooks.Open(s)
Set datasheet = databook.Sheets(1)
End Sub
 
Private Sub CommandButton2_Click()
Dim mychart As Chart '
x1 = 1
x2 = 100
h = 1
Set mychart = Worksheets(1).ChartObjects(1).Chart
mychart.SetSourceData Source:=Worksheets(1).Range("a1:b" & Trim(Str((Fix((x2 - x1) / h + 1)))))
fname = ThisWorkbook.Path & Application.PathSeparator & "picture.gif"
mychart.Export Filename:=fname, Filtername:="gif"
Image1.Picture = LoadPicture(fname)
End Sub
 
Private Sub CommandButton3_Click()
Dim mychart As Chart
Dim x As Single
Dim y As Single
L = InputBox("Введите L")
    If L >= 0 And L <= 1 Then
        Cells(1, 6).Value = L
        x1 = 1
        x2 = 100
        h = 1
Set mychart = Worksheets(1).ChartObjects(1).Chart
mychart.SetSourceData Source:=Worksheets(1).Range("A1:d" & Trim(Str((Fix((x2 - x1) / h + 1)))))
fname = ThisWorkbook.Path & Application.PathSeparator & "picture.gif"
mychart.Export Filename:=fname, Filtername:="gif"
Image1.Picture = LoadPicture(fname)
    Else
        MsgBox "Внимание! Введите число от 0 до 1", 16
   End If
End Sub
 
Private Sub CommandButton4_Click()
Dim mychart As Chart '
x1 = 1
x2 = 100
h = 1
Set mychart = Worksheets(1).ChartObjects(1).Chart
mychart.SetSourceData Source:=Worksheets(1).Range("a1:c" & Trim(Str((Fix((x2 - x1) / h + 1)))))
fname = ThisWorkbook.Path & Application.PathSeparator & "picture.gif"
mychart.Export Filename:=fname, Filtername:="gif"
Image1.Picture = LoadPicture(fname)
End Sub
 
Private Sub CommandButton5_Click()
    UserForm1.Hide
End Sub