What is the most efficient way to copy, paste and transpose values between worksheets?

Hi guys.

I would like to move the ranges that are highlighted in yellow to the second sheet. NB! The coloring is only there to help you see what part I want to move. I don't want a search for yellow cells.

I also want the ranges to be transposed and form one continuous range.

Here is the code I have written. It works fine, but it's incredibly slow.

Sub CopyMove1()
    
    Dim i As Long
    
    For i = 5 To 719 Step 14
    
        Worksheets(1).Activate
    
        Range(Cells(i, 2), Cells(i + 7, 8)).Select
        
        Selection.Copy
        
        Worksheets(2).Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Transpose:=True
        
    Next i
      
End Sub

I was wondering what you guys think is the "best" or most efficient way to perform the task at hand?

Also, if you have any tips or suggestions related to copying and pasting I would love to hear it. Don't be shy!

If my explanation wasn't clear enough (probably wasn't) then just run the macro and you will see what I mean.

Thanks a bunch!