Transpose Duplicate Rows Into Columns Including Blank Cells

I found this great macro to use in a spreadsheet I'm trying to transpose from rows to columns, however, I need a place holder for blank cells: [URL] .....

I was able to use the macro in the last post by Ochenden but the blank cells need to have a placeholder.

How to change the macro or come up with a different script for me to use?

Attached is how I need the spreadsheet to look.

Script I used:

Sub aaa()
Dim OutSH As Worksheet
Set OutSH = Sheets("Sheet2")

Range("A:A").AdvancedFilter Action:=xlFilterCopy, copytorange:=OutSH.Range("A1"), Unique:=xlYes

[Code] ..........

Transpose_Duplicates_Examples.xlsx