vbaで重複データを削除して出力したい

Question

実現したいこと

①重複したデータ行を削除して出力したい

前提

マクロよりcsvファイルを取り込み、重複したレコードを削除する処理を実施し、重複しない出力結果を取得したいです。
ディクショナリーオブジェクトで、fruitNumが重複しているか重複していないかでaとbのディクショナリオブジェクトに分ける前に、
RemoveDuplicatesで、12列目、46列目、41列目が同一データの行を削除したいです。
ですが、エラーで「アプリケーション定義またはオブジェクト定義のエラーです」とでてしまいます
理由がわからず、どこを改善すればエラーが解消されますでしょうか。
よろしくお願いいたします。
補足ですが、ヘッダーは1～3行目までで、セルの結合を行っているので、4列目から読み込むようにしています（RemoveDuplicatesは結合したセルには使用できないかと思いますので。マクロで、レイアウトのシートを参照するように設定しています）。
また、取り込みたいcsvファイルのレコードは、様々な種類の重複があります。

Range("A4:DD" & maxRow).RemoveDuplicates (Array(12, 46, 41))を挿入する前は、うまく動きました。
前提として、下記のvbaコードは抜粋となります。

RemoveDuplicates以外の方法で可能なコードがあれば、それでもかまいませんのでご教示ください。

アプリケーション定義またはオブジェクト定義のエラーです

該当のソースコード

    Set aDic = CreateObject("Scripting.Dictionary")
    Set bDic = CreateObject("Scripting.Dictionary")
    Dim maxRow As Long
    maxRow = Cells(Rows.Count, 4).End(xlUp).Row
    
    'データ行まで読み飛ばし
    Line Input #1, buf              'ヘッダー行1読込
    Line Input #1, buf              'ヘッダー行2読込
    Line Input #1, buf              'ヘッダー行3読込
    Line Input #1, buf              'カラムID行読込
    Do Until EOF(1)
    Line Input #1, buf
    tmp = Split(buf, ",")
         
    '重複しているデータを削除
    Range("A4:DD" & maxRow).RemoveDuplicates (Array(12, 46, 41))
    
        fruitNum = tmp(11)
        ' aディクショナリーにfruitNumが存在しない場合、追加
        If Not aDic.Exists(fruitNum) Then
            aDic.Add fruitNum, fruitNum
        '  aディクショナリーに社員番号が存在する場合、 bディクショナリーに追加
        Else
            bDic.Add fruitNum, fruitNum
        End If
    Loop
    
    Close #1

'データ行まで読み飛ばし
    Line Input #1, buf              'ヘッダー行1読込
    Line Input #1, buf              'ヘッダー行2読込
    Line Input #1, buf              'ヘッダー行3読込
    Line Input #1, buf              'カラムID行読込
    Do Until EOF(1)                      '縦方向ループ
        Line Input #1, buf              '1行読込
        buf = "," & buf                 'ダミー列を追加
        tmp = Split(buf, ",")
        
        Case IntSyokyu_HK,_K
           fruitNum = tmp(12)
        Kingaku= tmp(46)
        ShouhinnCode = tmp(41)
        ' Kingakuまたは ShouhinnCodeが空白または０で、かつfruitNumが重複している場合、レコードをスキップする
        If (shokusekiTeate = "") Or (shokusekiTeate = 0) And (hyoukaKyu = "") Or (hyoukaKyu = 0) And bDic.Exists(employeeNum) Then
            GoTo Continue
        ElseIf (Kingaku = "") Or (Kingaku = 0) And bDic.Exists(fruitNum) Then
            GoTo Continue
        End If
    End Select

試したこと

ここに問題に対して試したことを記載してください。

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

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

Comments

[tatsu99]

CSVファイルをオープンしている行が見当たりません。
マクロの全ての行を提示したほうが、良い回答が付くかと思います。
又、２９行で#1をクローズした後、オープンせずに３２行で、#1を使用しています。
これでは、正常に動作するはずがありません。

Answer 1

重複削除の処理を挿入して動かなくなったということなので、その部分が問題になっているのだと思います。
そこでまずは次のように変更してみて動作するか確認してみることをお勧めします。

変更前：Range("A4:DD" & maxRow).RemoveDuplicates (Array(12, 46, 41))
変更後：Range("A4:DD" & maxRow).Select

この時点でエラーが出るか、その先でエラーになっているかが分かります。
もしこれでエラーが出た場合は Range の指定で失敗していると考えられるので、次のように修正してみると動くかもしれません。

変更前：Range("A4:DD" & maxRow)
変更後：Range("A4:DD" & cstr(maxRow))

cstr は引数のデータを文字列型に変換する関数です。
変数 maxRow が Long 型になっているので、"A4:DD" との結合を行うために maxRow を文字列型に変換しています。