Sub transpose()
Set Reference = Sheets("Hoja1").Range("A2:A" & Range("A65536").End(xlUp).Row)
Reference.Select
For Each ele In Reference
Set Qté = Sheets("Hoja1").Range("E" & ele.Row & ":AV" & ele.Row)
Qté.Select
'Sheets("Hoja2").Range("A65536").End(xlUp).Offset(1, 0) = ele
For Each quant In Qté
If quant <> "" Then
Sheets("Hoja2").Range("A65536").End(xlUp).Offset(1, 0) = ele
Sheets("Hoja2").Range("A65536").End(xlUp).Offset(0, 1) = ele.Offset(0, 1)
Sheets("Hoja2").Range("A65536").End(xlUp).Offset(0, 2) = Cells(1, quant.Column)
Sheets("Hoja2").Range("A65536").End(xlUp).Offset(0, 3) = quant
End If
Next quant
Next ele
End Sub