Private Sub Worksheet_Change(ByVal Target As Range)
Application.CutCopyMode = True
Application.ScreenUpdating = True
Range("A2:A25").Select
Selection.TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True
Application.CutCopyMode = False
Application.ScreenUpdating = False
'I don't know how to solve this problem after press enter key if you entering data in to another columns
'ActiveCell.Select '????
'ActiveCell.Offset(1, 0).Select '????
'ActiveCell.Cell(Rows.Count, 1).End(xlUp).Offset(1, 0) '????
ActiveCell.End(xlDown).Offset(1, 0).Select 'selecting first empty cell in column
End Sub