>>613
単純に重複を削除したいだけでしょうか？
ぶら下がってるデータを1つにまとめつつでしょうか？

単純に重複削除ならフィルターでできたはず
もしくはRemoveDuplicatesというメソッドで
つかい方はこちら
https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/range-removeduplicates-method-excel