For Each objFile In objmainFolder. Files
If LCase (Right (objFile. Name, 3))="CSV" Then
With GetObject (objFile Path)
With the Sheets (1)
Intlastrow=. [a2]. CurrentRegion. Rows. Count
The Range (" o2: o1 "& amp; Intlastrow)=Mid (objFile. Name, 32, 9)
Arr=. Range (" a2: o1 "& amp; Intlastrow)
End With
. Close False
End With


Here I think he values in the second line to line 5, how should manage?
Strives for the bosses