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

実現したいこと

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

前提

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

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

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

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

該当のソースコード

vbaのソースコード
1
2    Set aDic = CreateObject("Scripting.Dictionary")
3    Set bDic = CreateObject("Scripting.Dictionary")
4    Dim maxRow As Long
5    maxRow = Cells(Rows.Count, 4).End(xlUp).Row
6    
7    'データ行まで読み飛ばし
8    Line Input #1, buf              'ヘッダー行1読込
9    Line Input #1, buf              'ヘッダー行2読込
10    Line Input #1, buf              'ヘッダー行3読込
11    Line Input #1, buf              'カラムID行読込
12    Do Until EOF(1)
13    Line Input #1, buf
14    tmp = Split(buf, ",")
15         
16    '重複しているデータを削除
17    Range("A4:DD" & maxRow).RemoveDuplicates (Array(12, 46, 41))
18    
19        fruitNum = tmp(11)
20        ' aディクショナリーにfruitNumが存在しない場合、追加
21        If Not aDic.Exists(fruitNum) Then
22            aDic.Add fruitNum, fruitNum
23        '  aディクショナリーに社員番号が存在する場合、 bディクショナリーに追加
24        Else
25            bDic.Add fruitNum, fruitNum
26        End If
27    Loop
28    
29    Close #1
30
31'データ行まで読み飛ばし
32    Line Input #1, buf              'ヘッダー行1読込
33    Line Input #1, buf              'ヘッダー行2読込
34    Line Input #1, buf              'ヘッダー行3読込
35    Line Input #1, buf              'カラムID行読込
36    Do Until EOF(1)                      '縦方向ループ
37        Line Input #1, buf              '1行読込
38        buf = "," & buf                 'ダミー列を追加
39        tmp = Split(buf, ",")
40        
41        Case IntSyokyu_HK,_K
42           fruitNum = tmp(12)
43        Kingaku= tmp(46)
44        ShouhinnCode = tmp(41)
45        ' Kingakuまたは ShouhinnCodeが空白または０で、かつfruitNumが重複している場合、レコードをスキップする
46        If (shokusekiTeate = "") Or (shokusekiTeate = 0) And (hyoukaKyu = "") Or (hyoukaKyu = 0) And bDic.Exists(employeeNum) Then
47            GoTo Continue
48        ElseIf (Kingaku = "") Or (Kingaku = 0) And bDic.Exists(fruitNum) Then
49            GoTo Continue
50        End If
51    End Select