Transpose 2 Columns into Multiple Columns per Range of Cells

Thank you, AB33! Many thanks.

This worked beautifully. I especially love how it left my original sheet undisturbed.

Sub copyme1()
Application.ScreenUpdating = 0
Dim LR&, i&, ms As Worksheet
Set ms = Sheets("Result")
NC = 1
 With Sheets("appz")
 
    LR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
    For i = 2 To LR Step 51
      .Cells(i, 1).Resize(51, 2).Copy
       ms.Cells(1, NC).PasteSpecial xlValues
       NC = NC + 2
    Next i
 End With
Application.CutCopyMode = 0
Application.ScreenUpdating = True
End Sub