Here's one approach, which puts the results on sheet2.
Private Sub CommandButton1_Click()
    
    Dim ManufacturerNum
    Dim Details As Double
    ManufacturerNum = InputBox("Enter the manufacturer")
    With Sheets("List")
        Sheet2.UsedRange.Clear
        .AutoFilterMode = False
        .Range("A1").AutoFilter field:=1, Criteria1:=ManufacturerNum
        .AutoFilter.Range.Copy Sheet2.Range("A1")
        .AutoFilterMode = False
    End With
    
End Sub