>>726
読みづらいし色々詰め込みすぎ。個人的にも使わないものが多い
・宣言(dim〜)
・with
・do until
はそうそう使わない

>For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row

>最終行=Cells(.Rows.Count, 1).End(xlUp).Row
>For i = 2 To .最終行
と分けたほうが読みやすい

for、if、setが使えれば大体良いと思う