converting pseudocode to VBA

Try this. Results in sheet2.

Sub x()

Dim rng As Range, rng2 As Range, nCol As Long

Application.ScreenUpdating = False

Sheet1.Activate

For Each rng In Range("A1", Range("A1").End(xlDown))
    nCol = rng.End(xlToRight).Column - 4
    Set rng2 = rng.Resize(, 4)
    With Sheet2
        .Cells(Rows.Count, 1).End(xlUp)(2).Resize(nCol, 4).Value = rng2.Value
        rng.Offset(, 4).Resize(, nCol).Copy
            .Cells(Rows.Count, 5).End(xlUp)(2).Resize(nCol).PasteSpecial Transpose:=True
    End With
Next rng

Application.ScreenUpdating = True

End Sub