VBA: シート挿入時の方が一致しないエラー

Question

###質問内容
VBAでCSVを読み込み、Excelシートにデータを出力→ピボットテーブルを作成
という機能を実装しようとしています。
下記コードを実行しようとしたところ、プロシージャCSV_inputのSheets.Addの箇所で型が一致しないエラーが出てしまいます。
原因がわからないので、わかる方原因と対策を教えていただけますと助かります。

###2020/5/15/14:00追記

VBA実行ファイルの構成はシート(Sheet1のみ)、マクロはSheet1モジュールに記述しております。
VBA実行しているファイルはGoogleドライブ配下のディレクトリにあります。
読み込み用CSVファイルは同じディレクトリにあります。

Sub auction_anaytics_graph()

 CSV_input
 
 Dim OS As Worksheets
 Set OS = ThisWorkbook.Sheets(Sheets.Count)
 
 Dim LastRow As Long
 LastRow = OS.Cells(Rows.Count, 1).End(xlUp).Row
 
 Sor_auc OS, LastRow
 Change_under10per OS, LastRow
 Pivot_Auc_IMP OS, LastRow
 
End Sub

Sub CSV_input()

    Dim varFileName As Variant
    varFileName = Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv", _
                                        Title:="CSVファイルの選択")
    If varFileName = False Then
        Exit Sub
    End If
    
    Sheets.Add After:=Sheets(Sheets.Count) 'エラー発生箇所
    Dim Auc_sheet As Worksheet
    Set Auc_sheet = Sheets(Sheets.Count)
  
    With Auc_sheet.QueryTables.Add(Connection:="TEXT;" & varFileName, Destination:=Auc_sheet.Range("A1"))
        .TextFilePlatform = 932 'Shift=Jis
        .TextFileCommaDelimiter = True
        .Refresh BackgroundQuery:=False
        .Delete
    End With
End Sub

Sub Sor_auc(S As Worksheets, LRow As Long)

    With S.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("A3"), Order:=xlAscending
        .SetRange Range(Cells(3, 1), Cells(LRow, 1))
        .Header = xlYes

        .Apply
    End With

End Sub

Sub Change_under10per(S As Worksheets, LRow As Long)

    Dim i As Long
    
    For i = 4 To LRow
        
        S.Cells(i, 3) = Replace(S.Cells(i, 3), " ", "")
        S.Cells(i, 3) = Replace(S.Cells(1, 3), "　 ", "")
        S.Cells(i, 3) = Replace(S.Cells(1, 3), "未満", "")
    Next i
    
End Sub

Option Explicit

Sub Pivot_Auc_IMP(S As Worksheets, LRow As Long)
'
' Pivot_IMP Macro
'

    Dim PivotS As Worksheet 'ピボットテーブルを作成するシート
    Dim PCache As PivotCache 'ピボットキャッシュ用変数
    Dim P_name As String
    
    
    
    PCache = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=S.Range(Cells(3, 1), Cells(LRow, 3)), _
                                    Version:=xlPivotTableVersion15)
    
    P_name = "月別インプレッションシェア" & OS.Name
    PCache.CreatePivotTable TableDestination:=S.Range("E3"), TableName:=P_name
    
    OS.PivotTables(P_name).AddFields ColumnFields:=Array("月")
    OS.PivotTables(P_name).AddFields RowFields:=Array("表示 URL ドメイン")
    OS.PivotTables(P_name).AddDataField Fields:=OS.PivotTables(P_name).PivotFields("インプレッション シェア"), _
                                                                        Function:=xlSum
                                    
    
    With OS.PivotTables(P_name)
        .ColumnGrand = False
        .RowGrand = False
    End With
    
End Sub

Comments

[ttyp03]

素のワークブックでSheets.Add行のみ実行してみましたが問題はありませんでした。
環境によるものかもしれませんので、シートの構成やマクロをどこに置いているか、マクロはどうやって呼び出されるかなど、詳細を書いていただいた方がよいでしょう。

[ATENAI]

確認いただきありがとうございます。
承知しました。詳細を追記します。

Answer 1

わかりました。
auction_anaytics_graphで定義しているOSの型がWorksheetsになっています。

Dim OS As Worksheets
　↓
Dim OS As Worksheet

一気に実行すると実際のエラーとは異なる場所を指す場合もあるので、ステップ実行するとよいですよ。

Comments

[ATENAI]

ありがとうございます
初歩的なミスに気付かずすみません…
早速回答いただき大変助かりました！