Sub 二列目から最終列まで削除する()
    
   '最終列（一番右の列）を取得する
    最終列 = Cells(1, Columns.Count).End(xlToLeft).Column '=3列目(=C列)
    
   '列番号（3）をアルファベット（C）に変換する
    列名 = Replace(Replace(Cells(1, 最終列).Address, "$", ""), "1", "") '=C
    
   '二列目（B列）から最終列（C列）まで削除する
    Columns("B:" & 列名).Delete
   'Columns("B:C").Delete と同じこと
    
End Sub