Text Limitation Work Around?

I had a happy macro that copy and pasted sheets in an output folder for all excel files from a target file that included the desired changes. it worked fine. then i realized that when pasting a sheet, the text is limited to 250 characters, so an important portion of my sheet (some instructions in various cells) was not coming over. So i created the following which will copy the columns, but some of the row formatting is different and doesn't line up. my questions:

-is there a better way around this text limitation?
-if not, is there a way to copy the row formats for this section and include in my macro?
-is there a way to copy the cells (all or a range) themselves while using "ThisWorkbook", thereby including all the appropriate formating? it seems to not like to do that.

‘Copy columns from target sheet

Sub Perf_rev_subfolder_replace()
'Update the constant here if necessary
Const sOutputFolder As String = "M:ODPerf review2010 oolsTest folder est"
With Application
. ScreenUpdating = False
.DisplayAlerts = False
.EnableEvents = False
End With
For Each fl In CreateObject("scripting.filesystemobject").GetFolder(sOutputFolder).Files
If InStr(fl, "3.0") > 0 Then
With Workbooks.Open(fl..............................