使用済みセルの最終列を取得する
For b = 255 To 1 Step -1
    Cells(a, b).Select
    If Cells(a, b).Value <> "" Then Exit For
Next b


　a　　検索する行番号
　b　　最終列を返します

※エクセルは列数が255までしか使用できません。
※短い上に使用頻度が低いのでスクリプト内に埋め込む場合で記述してあります。
Hino 23:56 2007.01.24 Wed
　署名　
　内容　
　　　　　　
新しい記事
　題名　
　署名　 　File
　本文