Cells(Rows.Count, 1).End(xlUp)

とか、意味もわからずコピペするだけより意味がわかって使った方がいいでしょ
で

range(左上セル,右上セル)
と
Cells(Rows.Count, 1).End(xlUp)

を組み合わせて、データが増えるごとに処理対象の範囲を広げる、とか基本がわかっていないと対応できないと思う