you can't sort it the way it is.

What the code does...
Takes all the data from the Utility ID sheet and puts it into columns A & B on the ScratchPad sheet.
Sorts alphabetically based on column A, because that's what your first picture appears to be.
Deletes everything from the Utility ID sheet.
Writes the ScratchPad data back to the Utility ID sheet in 50 row chunks.

try this...
Re-name Sheet1 to Utility ID
Remove the single space from cell A251
Add a new sheet and name it ScratchPad
Alt+F11 to bring up the VBA environment
From menu, Insert module
Copy the code to vba module 1
Close the VBA environment
Add Joe Friday/U001 at the bottom of columns D & E at row 246
Alt+F8 and run the macro.

Joe Friday is now at A135.

Attached Files

Utility ID_v2.xlsm (92.4 KB, 12 views)