VBA user input and adapt rows (in 2 sheets)