この画像にあります「エクセル０１ファイル」という請求書があります。

Private Sub CommandButton1_Click()

    Dim TBook As Workbook
    Set TBook = Workbooks.Open("エクセル02ファイル.xls")
    
    a = TBook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    
    If TBook.Sheets(1).Cells(1, 1) <> "" Then a = a + 1
    
    TBook.Sheets(1).Cells(a, 1) = Range("H1")
    TBook.Sheets(1).Cells(a, 2) = Range("C5")
    TBook.Sheets(1).Cells(a, 3) = Range("D10")
    TBook.Sheets(1).Cells(a, 4) = Range("D11")
    
    期間 = Range("D11") - Range("D10")
    TBook.Sheets(1).Cells(a, 5) = 期間
    TBook.Sheets(1).Cells(a, 6) = Range("D7")
    
    判別 = 0
    
    If Range("D7") <= 10000 Then 判別 = 5
    If Range("D7") <= 5000 Then 判別 = 4
    If Range("D7") <= 3000 Then 判別 = 3
    If Range("D7") <= 1000 Then 判別 = 2
    If Range("D7") <= 500 Then 判別 = 1
                
    
    TBook.Sheets(1).Cells(a, 7) = 判別
    TBook.Sheets(1).Cells(a, 8) = Range("B6")
    TBook.Sheets(1).Cells(a, 9) = Range("C6")
    
    
    TBook.Close SaveChanges:=True
    
End Sub

ボタンを押したときの処理を 上記のようにすればよいでしょう。

Set TBook = Workbooks.Open("エクセル02ファイル.xls")

ここに エクセルファイル名を入れればいいです。
新たに作成とありますが、追加していくのであれば、最初に手動でファイルを作ったほうがいいでしょうね。

あと シートは 最初のシートになっています。
シート名が固定ならば それにしてもいいですよ。

TBook.Sheets(1).Cells(a, 1)
↓
TBook.Sheets("シート名").Cells(a, 1)