Sub 最終列_一番右の列_のみ削除する()
    
    '最終列を取得する＝5
    最終列 = Cells(1, Columns.Count).End(xlToLeft).Column
    
    '最終行の値のみを削除したい（行を詰めない）場合
    Columns(最終列) = ""
    
    '最終行の行ごと削除したい（行を詰める）場合はこちら
    'Columns(最終列).Delete
    
End Sub