Here is one method...

You will need a workbook with the filename "Work.xls"  for this one to work
out right. Also you can only have the "Work.xls" file open when you run this
macro or it will not work correctly.

With the workbook "Work.xls" open, make a new module and paste the following
code...

Then run the macro.

Sub OpenFiles()
   Dim fn As Variant, f As Integer, i As Integer, counter As Integer

   i = 1
   fn = Application.GetOpenFilename("CSV Files,*.csv", _
                                    1, "Select One Or More Files To Open",
, True)
   If TypeName(fn) = "Boolean" Then Exit Sub
   For f = 1 To UBound(fn)
       Debug.Print "Selected file #" & f & ": " & fn(f)
       Workbooks.Open fn(f)

       While i = 1

           Range("G25").Select
           Selection.Copy
           Windows("Work.xls").Activate
           Range("A1").Select
           ActiveSheet.Paste

           i = i + 1
       Wend

       If (f > 1) Then

           While (i <= f)
               Range("G25").Select
               Selection.Copy
               Windows("Work.xls").Activate
               Range("A1").Select
               Cells(i, 1).Select
               ActiveSheet.Paste

               i = i + 1
           Wend

       End If

       ActiveWindow.ActivateNext
       ActiveWindow.Close False

   Next f
End Sub