Move cells/ semi-automate categorizing data

[svendfj]

Thank you in advance for your time and any assistance you can please lend. The simplified version:
- I have 4 lists, with headings in cells A1, B1, C1 and D1: 'General', 'Code', 'Apples', 'Oranges'
- Initially, only the 'General' list is populated; and cells A2-A10 contain: Tangerine, Macintosh, Seville, Gala, Cortland, Navel,...
- Cells in column B are restricted (via a drop-down list) to allow only selection of one of 2 codes: 'A' and 'O' (shorthand for 'Apples' and 'Oranges')
- Initially lists 'Apples' and 'Oranges' in columns B and C are empty
- I would like to implement a VBA solution that: by selecting either 'A' or 'O' in column B, the corresponding entry in column A would (1) be copied into either columns C or D; and (2) the entries in columns A and B would be removed.

- For example: If I selected 'O' in cell B2, the entry in cell A2, 'Tangerine' would be effectively moved to the next empty cell in list 'Oranges' in column D. That is: (1) 'Tangerine' would be copied into cell D2, (2)

'Tangerine' would ​

be removed from cell A2, and (3) cell B2 would revert to empty.

This would be very useful. I would appreciate your perspective on how this could best be done. Ideally, there would be an similar, existing solution that I could leverage.

Again, thank you, Sven
​

 

[Jim Gordon]

As long as the first letter of the words in Column A are unique, you don't need a macro. You can use VLOOKUP. Do you need assistance using VLOOKUP?