Button und Call Funktion in einem

Private Sub CommandButton1_Click()
Range("H4") = Range("h4") + 1
'Mit Klick auf Button wird Zahl in Zelle H4 um 1 jeweils erhöht
ActiveSheet.PageSetup.PrintArea = "b3:H22" 'Druckbereich wird markiert
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & Range("h4").Value & Format(Date, "/ DD.MM.YY") & ".pdf", Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
'Name des Dokuments = Zelle H4 + aktuelles Datum(In diesem Fall lfd.nr + Datum)
'„ThisWorkbook.Path“ heißt, dass das PDF Dokument dort abgespeichert wird, wo sich die Excel  _
Datei befindet
'############################################################################################### _
'Einträge selektieren und löschen
Range( _
"D7,F8,F9,F10,F11,F12,H12,H11,H10,H9,H8,E13,F13,E14:H14,E15:H15,E16:H16,E17:H17,E18:H18, _
E19:H19,E20:H20,E21:H21,F22:H22,G13" _
).Select
Selection.ClearContents
Range("D7:E7").Select
'############################################################################################### _
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Call LeereFinden
End Sub

Sub LeereFinden() ' Sucht in den vordefinierten "Namensbereichern" die nächste freie Zelle
Dim firstRow As Long, i As Long, totalRows As Long
Dim rng As Range
Dim myString As String
myString = Range("c5").Value
If myString = "" Then Exit Sub
Set rng = Range(myString)
firstRow = rng.Row
totalRows = rng.Rows.Count 'zählt die Anzahl der Zeilen im Namensbereich
With Worksheets("Datenbank")
For i = firstRow To firstRow + totalRows - 1
If .Range("C" & i) = "" Then
Worksheets("Datenbank").Select
.Range("C" & i).Value = Worksheets("Vorerhebung").Range("e3").Value               ' QR  _
_
_
Code Nr
.Range("C" & i).Offset(0, 1).Value = Worksheets("Vorerhebung").Range("d7").Value  '  _
Inventarnummer
.Range("C" & i).Offset(0, 2).Value = Worksheets("Vorerhebung").Range("f22").Value ' EN  _
_
_
Nr
.Range("C" & i).Offset(0, 3).Value = Worksheets("Vorerhebung").Range("G13").Value '  _
Raum ID
.Range("C" & i).Offset(0, 4).Value = Worksheets("Vorerhebung").Range("E13").Value '  _
Standort im Betrieb
.Range("C" & i).Offset(0, 5).Value = Worksheets("Vorerhebung").Range("E20").Value '  _
Artikel Nr
Exit For
End If
Next i
End With
Set rng = Nothing
End Sub