Change the data arrangement from (Current) to (Required)

[MayHmne]

 

[onlyadrafter]

Hello,

wouldn't surprise me, if someone came up with a formula to do this, but with VBA:

Sub SORT_ROWS_TO_COLS()
    For MY_ROWS = 1 To Range("A" & Rows.Count).End(xlUp).Row
        If Not (IsEmpty(Range("A" & MY_ROWS))) Then
            Range("A" & MY_ROWS & ":G" & MY_ROWS).Copy
            Range("K" & MY_ROWS).PasteSpecial Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
        End If
    Next MY_ROWS
End Sub

 

[Fluff]

Hi & welcome to MrExcel.
Another option

Sub MayHmne()
   Dim Rng As Range
   
   For Each Rng In Range("A:A").SpecialCells(xlConstants)
      Rng.Offset(, 10).Resize(7).Value = Application.Transpose(Rng.Resize(, 7).Value)
   Next Rng
End Sub

 

[MayHmne]

Welcome back,
In fact, that was my first post in this forum and I am happy that I was the first one to respond to after you came back and by the way, your VBA code was a great helper
Thank you

 

[MayHmne]

Thank you!
Great members of this forum

 

[Fluff]

Glad we could help & thanks for the feedback.