Copiar mas de 3200 datos entre libros

buen dia tengo un problema, al querer juntar 24 libros con datos generados cada segundo los quiero tener en una sola hoja. Pero al pegar los datos solo consigue pegar 3200 datos

hice la siguiente macro:

Sub analisis2()
'
'
'
Dim FolderPath As String
Dim FileName As String
Dim files As String
nbre = Format(Now, "dd-mm-yy")
files = "C:\pomini2\" & nbre & "\analisis.xlsx"
Set car = CreateObject("Scripting.FileSystemObject")
Set file = car.CreateFolder("c:\pomini2\" & nbre)
Workbooks.Add
ActiveWorkbook.SaveAs FileName:="C:\pomini2\" & nbre & "\analisis.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Range("A1").Select
ActiveCell.FormulaR1C1 = "Date"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Time"
Range("C1").Select
ActiveCell.FormulaR1C1 = "V Cabezal"
Range("D1").Select
ActiveCell.FormulaR1C1 = " C Rueda"
Range("E1").Select
ActiveCell.FormulaR1C1 = " analógica"
Range("F1").Select
ActiveCell.FormulaR1C1 = " analógica"
Range("G1").Select
ActiveCell.FormulaR1C1 = "Input 1"
Range("H1").Select
ActiveCell.FormulaR1C1 = "Input 2"
Range("I1").Select
ActiveCell.FormulaR1C1 = "Input 3"
Range("J1").Select
ActiveCell.FormulaR1C1 = "Input 4"
Range("K1").Select
ActiveCell.FormulaR1C1 = "Input 5"
Range("L1").Select
ActiveCell.FormulaR1C1 = "Input 6"
Range("M1").Select
ActiveCell.FormulaR1C1 = "Input 7"
Range("N1").Select
ActiveCell.FormulaR1C1 = "Input 8"
Range("O1").Select
ActiveCell.FormulaR1C1 = "Input 9"
Range("P1").Select
ActiveCell.FormulaR1C1 = "Input 10"
Range("Q1").Select
ActiveCell.FormulaR1C1 = "Input 11"
Range("R1").Select
ActiveCell.FormulaR1C1 = "Input 12"
ActiveWorkbook.Save
Workbooks.Close
FolderPath = "C:\datos\"
FileName = Dir(FolderPath & "*.csv")
Do While FileName <> ""
Set WorkBk = Workbooks.Open(FolderPath & FileName)
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Open files
Range("A2").Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Close
FileName = Dir()
Loop
Workbooks.Open files
End Sub

aparte quiero hacer otras cosas con los datos pero me gustaría ver si me pueden explicar que estoy haciendo mal

de antemano gracias por su valiosa ayuda