Creating a macro to pull data from a sheet and transpose

Hello,

I am working on creating a journal entry form where I can enter a 'A" for accrual and have a macro look up the "A" then create a new spreadsheet copy the information and transpose the lines. (To reverse an accrual)

I am inserting a small sniped of what the form looks like