If FNum > 0 Then
    For FNum = LBound(MyFiles) To UBound(MyFiles)
       
                Set mybook = Nothing
                On Error Resume Next
                Set mybook = Workbooks.Open(FilePath & MyFiles(FNum))
                On Error GoTo 0
      
                ScreenUpdating = False
    
                Sheets("1").Activate
                RowCount = Range("A1").End(xlDown).Row
                Arr1 = Range(Range("A2"), Range("b2").Offset(RowCount - 1))
    
    
                Sheets("2").Activate
                RowCount = Range("A1").End(xlDown).Row
                Arr2 = Range(Range("A2"), Range("d2").Offset(RowCount - 1))
                
                ActiveWorkbook.Close
                
                
Next FNum
I am going to loop some files for data copying. The above code is for copying the data into two arrays, Arr1 and Arr2.

After I run the program, I find out that the data in the second file replaces the first file in the arrays, the third file replaces the second file,etc.....At last, I can only copy the data in the last file.

What should i do??? Thanks