Auto copy and pasting

[cdixon]

Need help. I need a macro or program that can sort and copy the
information I enter in one sheet over to another sheet. The information
needs to be sorted by name and filed on the distention sheet in that
order. As I enter the information or by a command.
Example:
Sheet 1: John
Tom
Jim
Bob
Tom
Bob

Sheet 2 The information would look like this

John
Tom
Tom
Bob
Bob

Any Idea or am I in to deep?

 

[Tom Ogilvy]

Private Sub CommandButton1_Click()
Dim rng as Range
Worksheets("Sheet2").Cells.ClearContents
set rng = Worksheets("Sheet1").Range("A1").CurrentRegion
rng.copy Destination:=Worksheets("Sheet2").Range("A1")
set rng = Worksheets("Sheet2").Range("A1").CurrentRegion
rng.sort Key:=rng.Parent.Range("A1")
End Sub