Sub test()
i = 2
Do
Range("A" & i).Copy
ActiveSheet.Paste (Cells((i - 2) / 2 + 5, 7))
Cells((i - 2) / 2 + 5, 7).TextToColumns Destination:=Cells((i - 2) / 2 + 5, 7), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
i = i + 2
Loop Until Cells(i, 1) = ""
End Sub