macro para transponer

[anavlis]

Hola aqui te dejo el link del codigo que he estado usando, ah una pregunta he querido volver a correr el codigo en la macro y me dice error en el rango en esta fila:
For Each C In Range(Worksheets("Hoja3").[a2], Worksheets("Hoja3").[a1].End(xlDown)

al igual que en esta linea:
.Offset(1, 0).Resize(qPreg) = C
´me dice que hay un error pero cuando lo probé la primera vez me corrió normal sin problemas pero ahora me bota ese error.


Aqui te dejo el link: http://www.mediafire.com/?6on2d1lr4inh92e
Gracias!!