列内の空白セルを無視して、列の最後の空白セルを知りたい場合は、以下のコードを使用できます。このコードは、列Aの最後の空白セルを変数「n」に格納します

n = Cells（Rows.Count、1）.End（xlUp）.Offset（1,0）.Addressこのコードを使用して、選択した列にデータをさらに追加できます。