run time error 13 Type mismatch

[snb]

While using VBA you still are thinking in Excel.

Sub show_inventory()
 With ThisWorkbook.Sheets("Inventory")
   .Cells.Clear
   ThisWorkbook.Sheets("Product_master").Range("B:B").Copy .cells(1)
   .Range("B1:E1").Value = array("Purchase","Sale","Available Stock","Stock Value")
 end with

  - - - - -