macro to replicate rows

i have attached a sheet with input and the required output. in the input sheet, if the value is 1 for different modes of transport there is a choice for that mode for the corresponding id. i need output sheet where the number of rows for a particular id equals the number of choices for that id. i need another column in the output sheet( column heading "choice"), which gives the name of the choices selected by the id (ie, for id 108001, in input sheet walk,tw,cycle has value as 1..so in output sheet choices made are those(walk,tw,cycle))...travel time, distance and cost remains same for each id....pls help....