I using the code given below to Copy data from multiple sheets to single sheet. But I am facing a problem in using this. I am trying to consolidate a lot of text fields; a few cells have text length more 1500 characters. When I run this macro I get run time error "1004".

Could you please help me with a work around for this problem?

Thanks in advance
Ananta



Sub Consolidate()
'
' Consolidate Macro
' Consolidates all branches into one sheet
'
Dim OutSH As Worksheet
Set OutSH = Sheets("Summary")
OutSH.Cells.ClearContents
OutSH.Range("A1:J1").Value = Array("Review Date", "Email Date", "Reviewer", "E or I", "Name and Title", "FP Name", "Issue", "Action Taken", "Account Number", "Resolution", "Status")
For i = 2 To Sheets.Count
With Sheets(i)
lastrow = .Cells(Rows.Count, "I").End(xlUp).Row
For j = .Range("b1").End(xlDown).Row To lastrow
OutSH.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 10).Value = .Cells(j, 1).Resize(1, 10).Value
Next j
End With
Next i
End Sub