Public Sub Finish_Click()
     
    Application.ScreenUpdating = False
     
    Sheets("Invoice").Range("B1:B2").Copy
     
    Sheets("Database").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
     
    Range("C8:F8").Copy
     
    Sheets("Database").Range("A65536").End(xlUp).Offset(0, 2).PasteSpecial _
    Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
     
    Application.ScreenUpdating = True
     
End Sub
Private Sub Worksheet_Activate()
     
    Application.ScreenUpdating = False
     
    Dim cbCVals
    Dim i As Integer
     
    cbCVals = Array("Axle", "Wheel")
     
    cbComponents.Clear
    cbComponents2.Clear
     
    For i = 0 To 1
        cbComponents.AddItem cbCVals(i)
        cbComponents2.AddItem cbCVals(i)
    Next i
    
    cbComponents.ListIndex = 0
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
     
End Sub

Private Sub Worksheet_Activate()
     
    Application.ScreenUpdating = False
     
    Dim cbCVals() As String
    Dim i As Integer
    Dim rngLastcell As Range
    Dim rngFind As Range
    
    'set up the lastcell
    Set rngLastcell = Worksheets("Database").Cells.Find("*", , , , , xlPrevious)
    
    'clear the 2 comboboxes
    cbComponents.Clear
    cbComponents2.Clear
     
     
    'exit if no data in sheet
    If rngLastcell Is Nothing Then Exit Sub
    
    'Fill array from values from the database sheet
    'ive added this loop to show how to get unique values from a list
    'into an array
    With Worksheets("Database")
        For i = 2 To rngLastcell.Row
            If i = 2 Then
                If IsEmpty(.Cells(i, 1)) Then Exit Sub
                ReDim cbCVals(i - 1)
                cbCVals(i - 1) = .Cells(i, 1).Value
            Else
                'check to see if value already present
                Set rngFind = .Range(.Cells(2, 1), .Cells(i - 1, 1)).Find(.Cells(i, 1).Value)
                If rngFind Is Nothing Then
                    'if not add a new value to the array
                    ReDim Preserve cbCVals(UBound(cbCVals) + 1)
                    cbCVals(UBound(cbCVals)) = .Cells(i, 1).Value
                End If
            End If
        Next i
    End With
    
    'using the array fill the comboboxes
    For i = LBound(cbCVals) + 1 To UBound(cbCVals) '+1 on lbound as started at 1
        cbComponents.AddItem cbCVals(i)
        cbComponents2.AddItem cbCVals(i)
    Next i
    
    'set the first value of the first combobox
    cbComponents.ListIndex = 0
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
     
    Set rngLastcell = Nothing
    Set rngFind = Nothing
End Sub