>>80
早速の回答ありがとうございます

For r = 1 To Range("A" & Rows.Count).End(xlUp).Row

For r = 1 To Sheet("1" & Rows.Count).End(xlUp).Row
に変更したらいいのでしょうか?

初心者ですいません