How to Automatically Copy New Data into the next sheet and have it automatically sorted??

Hi ReedDOT

Please try following code. Data range is in between A to U. You may change based on your example.

Regards,

Narasimharao

With Worksheets("Sheet2")
NextRow = .Cells(.Rows.Count, "A").End(xlUp).row
End With

Worksheets("Sheet1").Range("a:u").Copy _
Destination:=Worksheets("Sheet2").Cells(NextRow, "A")

Worksheets("Sheet2").Range("A:U").Sort Key1:=Worksheets("Sheet2").Range("A1"), Order1:=xlDescending, Header:=xlYes