Move data from one page in a workbook to another workbook.

It should pretty easy to do but I see discrepency in your data. You are mentionning 8 data to transfert in your post but I only see 7 corresponding columns in the "Quote tracking system" workbook.

What is the first column AE in this workbook?
In this workbook, you have 7 tabs. Data will be copied to which one?
If it is on the "Open Quotes" tab, I see you have empty rows to separate each "AE". Is this necessary? It should be erased. Any issue?

here is a macro that will do some of your request. If you run this macro while in the Bridgestone workbook and having the Quote tracking system workbook open at the same time, it will copy 7 data cells to the last row. You must relocate your total amount to the first line though.

Public Sub Transfer_Data()
'data series: Quote date, company,Contact,Phone,Email,Amount,Product
Dim Wks As Workbook, Last_Row As Range
'
Set Wks = Workbooks("Quotetrackingsystem SH (DEMO) NOT REAL.xlsx")
Set Last_Row = Wks.Worksheets("Open Quotes").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
'
Last_Row.Offset(0, 0) = Range("A8")
Last_Row.Offset(0, 1) = Range("D1")
Last_Row.Offset(0, 2) = Range("D2")
Last_Row.Offset(0, 3) = Range("D3")
Last_Row.Offset(0, 4) = Range("D4")
Last_Row.Offset(0, 5) = Range("F18")
Last_Row.Offset(0, 6) = Range("A10")
'
End Sub

the only point left is to have the copied email to appear as an email. I don't know why but it does not in the quote tracking workbook. If you double click this cell then on another cell, it will show as an Email. But you probably don't want to do this manually. I can look into that later.

If the cells to transfer are not allways at the same place in Bridgestone workbook, you should try using a named range (Formula - Name manager) for each of those you want to copy.