質問: range("商品一覧").rows.count range("商品一覧").cells(n, 1).entirerow.insert end sub
回答: なんか変な気がしますが sub 行挿入() '表の最下行に行を挿入 dim n as long n = range("商品一覧").rows.count range("商品一覧").cells(n, 1).end(xlup).offset(1).entirerow.insert end sub