I need a Macro to traspose values from a column in Sheet 1 to a row in Sheet
2. The column has 100 rows, I need to traspose from seven to seven. I did the
part of the macro that traspose the values, but I don't know how to put this
in a For or While Structure so as to count seven cells.

This is what I did:
Range("A2:A8").Select
Selection.Copy
Sheets("Sheet3").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True

Thanks in advance

Regards
Emece.-