Macro para trasponer filas a columnas

Utiliza esta macro y me comentas
Sub transporner()
Sheets("hoja1").Select
Set miRango = Sheets("Hoja1").Range("A2:A10")
A = Application.WorksheetFunction.CountA(miRango)
fila = 2
b = Range("A2").Value
Range("C2").Value = b
c = Range("B2").Value
Range("D2").Value = c
filan = 2
columna = 4
For i = 1 To A
fila = fila + 1
If Range("A" & fila) = Range("A" & fila - 1) Then
columna = columna + 1
Cells(filan, columna).Value = Cells(fila, 2).Value
Else
filan = filan + 1
Cells(filan, 3).Value = Cells(fila, 1)
Cells(filan, 4).Value = Cells(fila, 2)
columna = 4
End If
Next i
End Sub