I am having problems delimiting data in excel using the following script can someone please help me

Sheets("Status" ).Select
Application.Scr eenUpdating = False
Open (txtStatus) For Input As #1
n = ActiveCell.Row
Do While Not EOF(1)
Input #1, FileText
Cells(n, ActiveCell.Colu mn) = FileText
n = n...