Copy sent to "History Sheet" everytime the Active X button is pressed.

Hello,

I am looking for cells B18, C18, and E18 on Sheet 1 to be sent to the History sheet to the first available open row when the Box Count button is pressed. The first available row starts at row 3 and moves down depending on how many entries are already on the page. Any help would be appreciated. I'm not very good with this part of vba coding.


Thanks


The code is in module 1 as Sub Boxcount. Here is the code.

Sub BoxCount()
    Dim Qty1 As Double
        
        Qty1 = ThisWorkbook.Worksheets(1).Range("C18").Value - _
        ThisWorkbook.Worksheets(1).Range("B18").Value
        
    ThisWorkbook.Worksheets(1).Range("C18").Value = Qty1
    
    'Clear cell after subtraction
        ThisWorkbook.Worksheets(1).Range("B18").Value = ""
    'Message Box too order boxes when below 1500
    If ThisWorkbook.Worksheets(1).Range("C18").Value <= 1500 Then
    MsgBox ("Tell Chris to order more boxes")
    End If
End Sub