Public Function render(ByRef sheet As Worksheet)
index = sheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
sheet.Cells(index, 1).Value = reference
sheet.Cells(index, 2).Value = name
sheet.Cells(index, 3).Value = color
sheet.Cells(index, 4).Value = price
Debug.Print name
End Function