dim data_col as range
dim data_col_1 as integer

set data_col = application.inputbox("Select your columns", Type:= 8 )

data_col_1 = data_col.column