Macro: Buscar y Copiar datos de fila a columna

Alex5283 te dejo el código modificado para que luego de pegar los datos elimine los registros que sean iguales a 0
************************************************
Sub TransponerRegistro()
'Creada por FSerrano el 110518
On Error GoTo error
inicio:
'solicita el numero a buscar
cedula = InputBox("Digite el numero de la cedula a buscar", "Consulta") * 1
'verifica que el valor ingresado sea un numero y si no emite un mensaje con posibilidad de corrección
If Application.WorksheetFunction.IsNumber(cedula) = True Then
'identifica la fila que coincide con el valor buscado
    fila = Application.WorksheetFunction.Match(cedula, Range("A1", Cells(ActiveCell.SpecialCells(xlLastCell).Row, 1)), 0)
    Cells(fila, 1).Activate
'copia los valores que acompañan al registro que satisface la condición
    Range(ActiveCell, Selection.End(xlToRight)).Copy
'pega los datos copiados en la pagina siguiente
    ActiveSheet.Next.Range("a1").PasteSpecial Transpose:=True
'recorre los elementos pegados y elimina los que sean iguales a 0
    Sheets(ActiveSheet.Index + 1).Activate
    While ActiveCell.Value <> ""
        If ActiveCell.Value = 0 Then
            ActiveCell.EntireRow.Delete
        End If
        ActiveCell.Offset(1, 0).Activate
    Wend
    ActiveSheet.Previous.Activate
'rutina para el caso que el valor ingresado no sea un numero
Else
error:
    eleccion = MsgBox("El dato ingresado no es válido o no se encuentra", vbRetryCancel)
    If eleccion = 4 Then
        GoTo inicio
    End If
End If
End Sub
************************************************