Transpose Data in every 2nd row (sorta) to column on right [easy if you know how to code]

Try this...

Sub Transpose_Addresses()
    Application.ScreenUpdating = False
    ActiveSheet.Copy After:=ActiveSheet
    For i = Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1
        If Left(Range("A" & i), 1) Like "[0-9]" And _
           Range("B" & i) = "" And Range("B" & i - 1) = "" Then
           
            Range("B" & i - 1) = Range("A" & i)
            Range("B" & i - 1).Font.Bold = False
            Rows(i).Delete
            
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

It assumes the addresses start with a number. It misses those that don't.