What do you mean by unwanted ?

to delete everything after Column U and Row 2000, try this.

Code:
Range(Cells(1, "v"), Cells(1, Columns.Count)).EntireColumn.Delete
Range(Cells(2001, 1), Cells(Rows.Count, 1)).EntireRow.Delete