[Spirosgr]

Και μια λύση με κώδικα
3
Κώδικας
Χρησιμοποιούμε, σε ένα κουμπί τον κώδικα

Sub Button1_Click()
    Dim rng As Range, c As Range, FinalCol As Long
    Set rng = Range("myRng")
    
    For Each c In rng
        If c.Value <> "" Then
        FinalCol = Cells(5, Columns.Count).End(xlToLeft).Column + 1
            Sheet1.Cells(5, FinalCol).Value = c.Value
        End If
    Next c
End Sub

Σημειώσεις:
Ισχύει, για την διάταξη της εικόνας 6
Μπορείτε, να τροποποιήσετε ανάλογα