Macros en excel y datos transpuestos

Buen día y espero que estés bien antes que todo:
Hace algún tiempo me ayudaste grandemente en un problema que tenia (necesitaba transponer una serie de datos) ahora necesito algo muy parecido pero resulta que las variables ahora serian en las columnas y no en las filas como anteriormente y no se con que instrucciones podría resolver, si fueras tan amable de ayudarme te lo agradecería mucho.
Más abajo esta el código de la macro que hicimos para utilizarse en excel.
Gracias mil
andres
Sub transponer()
Dim ini As Integer 'ini sería el número de fila donde empiezan los datos
Dim fil As Integer
fil = 2 'este es el número de la fila donde se pegan los datos
For ini = 2 To 10000 '10000 sería el número de datos a cambiar
Range("e" & LTrim(Str(ini)) & ":e" & LTrim(Str(ini + 11))).Select
Selection.Copy
Range("I" & LTrim(Str(fil))).Select
Selection.PasteSpecial Transpose:=True
Range("b" & LTrim(Str(ini))).Select
Selection.Copy
Range("H" & LTrim(Str(fil))).Select
Selection.PasteSpecial
Range("a" & LTrim(Str(ini))).Select
Selection.Copy
Range("g" & LTrim(Str(fil))).Select
Selection.PasteSpecial
ini = ini + 11
fil = fil + 1
Next ini
End Sub