在使用visual basic的excel中粘贴数据时，我会得到一个 。 为什么？

当使用Excel 2007时，就在昨天它开始粘贴 时，我从其他工作簿复制数据。 由于数据没有正确格式化或组织，所以这完全破坏了新的工作表。 我使用VBA来运行MACRO，MACRO中没有任何变化，但是现在我的数据被破坏了。 有人可以帮我找出什么是错的？

这里是代码：

Sub LoopR() Dim File As String Dim Path As String Path = "C:\My Documents\Macros\" File = Dir(Path) Do While Len(File) > 0 If File = "* Master.xlsm" Then Exit Sub End If Workbooks.Open (Path & File) 'Macro which organizes my data into the correct 'format and cells Call k80jason Range("A1:H" & Cells(Rows.Count, "A").End(xlUp).Row).Copy ActiveWorkbook.Close savechanges:=False ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range(Cells(1, 1), Cells(1, 8)) File = Dir Loop End Sub