Datenreihe splitten, na wie gehts denn?

Sub SplitCurve()
'Versuch eine Datenreihe zu splitten, Rückgabe als Zelladressen (Range)
Dim Data()
Dim n, x As Byte
Dim LR As String
Dim Adresse()
'On Error GoTo Fehler
LR = Sheets(3).Cells(550, 12).End(xlUp).Row
n = InputBox("Please type a number which is the splitting factor.")
ReDim Data(n)
ReDim Adresse(n) As Variant
Range(Cells(50, 12), Cells(LR, 12)).Interior.ColorIndex = 6
Sheets(3).Select
For x = 1 To n
Data(x) = Application.InputBox("Please mark the first point of the " &
Chr(13) & Chr(13) & x & ". curve.")
MsgBox ActiveCell.Address
Next
Range(Cells(50, 12), Cells(LR, 12)).Interior.ColorIndex = 0
Exit Sub
Fehler:
MsgBox "Error"
Range(Cells(50, 12), Cells(LR, 12)).Interior.ColorIndex = 0
End Sub