最後列に列が追加できません。

Question

前提・実現したいこと

VBAで表の一番右に1列追加したいです。

発生している問題・エラーメッセージ

実行時エラー'13':
型が一致しません。

該当のソースコード

Sub 列追加()

    Dim i As Long

    i = 1

    If Worksheets(2).Cells(1, i).Value <> "" Then

    　　'↓ここでエラーが出来ます↓
        Columns(Cells(1, i)).Insert

    End If

    i = i + 1

End Sub
 

試したこと

    Columns(Cells(i)).Insert

    Range(1, i).EntireColumn.Insert

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

ここを

Columns(Cells(1, i)).Insert

こうでエラーは出ないです。

Columns(i).Insert

一番右になってないですが、、、

Comments

[shu_shu]

ありがとうございました。無事解決できました。