Change this line
Size = EmployeeList.Rows.Count * Application.InputBox("Enter the Percentage of employees to randomly test", Default:=10, Type:=1, Title:="Insteel Wire Products Random Drug Test Generator") / 100