How do I compare absolute difference between column and one target cell, and afterward, sort by Abs diff?

[Aa44]

Hi all I would like to use VBA to compare the absolute difference between one column of values vs one target cell. After calculating this difference, I want to sort the rows in ascending order, based on the absolute differences. My problem is as best described as I can in the link here:

https://stackoverflow.com/questions/57511457/how-do-i-compare-absolute-difference-between-column-and-one-target-cell-and-aft

Would really appreciate your help if you know what went wrong in my code...thankyou.