Yudlugar,
My name is actually Alba Sorry that I did not say it from the beginning
Then, the code that was giving that error is the one that you super kindly provided me plus the " and so on " added and the name changed to "split"

That is:

Sub split()
Dim count

For count = Selection.Row To Selection.Row + Selection.Rows.count
Range("D" & i) = Mid(Range("C" & i), 1, 3)
Range("E" & i) = Mid(Range("C" & i), 4, 2)
Range("F" & i) = Mid(Range("C" & i), 6, 1)
Range("G" & i) = Mid(Range("C" & i), 7, 2)
Range("H" & i) = Mid(Range("C" & i), 9, 2)
Next

End Sub