Sub import_01() Dim i As Integer, j As Integer Dim mytxtfile As String Dim myrange As Range, tmprange As Range Dim mystr As Variant mytxtfile = "c:\data\sample.txt"@ Worksheets(1).Activate Range("A1").CurrentRegion.Select Selection.Clear Set myrange = Range("A1") Open mytxtfile For Input As #1 Do Until EOF(1) Line Input #1, mystr myrange.Offset(i).Value = mystr i = i + 1 Loop Close #1 Set tmprange = Range(myrange, myrange.End(xlDown)) tmprange.TextToColumns DataType:=xlDelimited, ConsecutiveDelimiter:=True, _ Comma:=True, Space:=True, _ FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 1), Array(4, 1), Array(5, 5)) End Sub