Excel VBA 配列のセル貼り付けエラーについて

Public adr As String
Public str As String

'仮想CSVデータ(2項目目と5項目目が長い文字列)
Dim csvStr As String
csvStr = "hoge," & String$(912, 97) & ",foo,bar," & String$(912, 98)

'CSVデータ一括取り込み用配列
Dim items As Variant
Dim i As Long
items = Split(csvStr, ",")
ReDim obj(0 To 0, 0 To UBound(items)) As Variant

'912文字以上の文字列を退避する
Dim OverObjs As New Collection
Dim OverObj As Class1

For i = LBound(items) To UBound(items)
If Len(items(i)) > 911 Then
    '範囲を超える文字列は退避
    obj(0, i) = ""
    Set OverObj = New Class1
    OverObj.adr = Cells(1, i + 1).Address
    OverObj.str = items(i)
    OverObjs.Add OverObj, OverObj.adr
Else
    '範囲内の文字列は配列に格納
    obj(0, i) = items(i)
End If
Next i

'文字列配列を代入
Range("a1").Resize(1, 4).Value = obj

'912文字以上の文字列を別途代入する
For Each OverObj In OverObjs
Range(OverObj.adr) = OverObj.str
Next OverObj