Modify existing macro to transpose results

The below macro filters through data looking for multiple criteria. When a cell is found with that criteria, it moves the cell to a new worksheet. This works like a champ but I am trying to get the results to be transposed, moving to the next row if the cell starts with SD. I have been trying to modify it for a while and can't seem to get any traction. Any help would be greatly appreciated.

Example of current output:
Current State.jpg

Example of desired output:
Future State.jpg

Current Macro:

Please Login or Register  to view this content.

It could be done,but need to see the source book for a test (Not a picture), or send a link to the original thread.