"Lars-Åke Aspelin" wrote:

Try this

Sub paste_transpose()
Application.ScreenUpdating = False
Sheets("Sheet2").Activate
ActiveSheet.Cells(1, 1).Select
For i = 0 To 316
Sheets("Sheet1").Range("A1").Offset(i * 7, 0).Resize(6, 1).Copy
Selection.PasteSpecial Transpose:=True
Selection.Offset(1, 0).Select
Next i
Application.ScreenUpdating = True
End Sub

Sheet1 is the sheet where your data is
Sheet2 is the sheet to where you want to copy

Hope this helps / Lars-Åke


YES!!!!!

Thank you!

When I tried to do this myself, I figured the wrong number of loops but even
if I had gotten that right, I didn't know Excel syntax. Thank you for helping
me!