Sub Distribuer()
With Range("$A$1:$A$57")
.RemoveDuplicates Columns:=1, Header:=xlYes
.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 4), Array(2, 1), Array(3, 1), Array(4, 9), Array(5, 9), Array(6, 1), _
Array(7, 1)), DecimalSeparator:=".", TrailingMinusNumbers:=False
End With
End Sub