How to extract a specific data in a column and parse it in another column with VBA