最終行の次の行にデータを追加したい、そんなとき。



Range("B65536").End(xlUp)を応用して、



Worksheets("取引先No" & j).Range("B65536").End(xlUp).Offset(1)



とすれば指定可能。



offsetはVBAでもこんな風に使えるんですね。