We're faceing a problem when trying to create a macro that will copy n number o columns. We would like to give the user the opportunity to fill in how many "products" he/she in a cell and that number should be equal to how many columns that are to be copied from our original one.

The code for 2 columns is something like:

Range("I5").AutoFill Destination:=Range("I5:J5"), Type:=xlFillDefault

and we would like to have it something like:

Range("I5").AutoFill Destination:=Range("I5:'filled in number'5"), Type:=xlFillDefault

Is this possible in some way?

Thanks