Please helpin creating a macro that will create a new spreadshee

Hello,

I would like to kindly ask for help in creating a macro that will generate a new spreadsheet based on the letter entered in a specific column. In this case "A", the macro would grab the adjacent data and transpose in new spreadsheet.

This is for journal entry book. Any help would be greatly appreciated

Thank you in advance for your time!