I think I understand. You may try:
Sub ImportPCB()
'
' ImportPCB Macro
'

'
   Const csPATH                    As String = "C:\Users\allaer81\Documents\Dimitri04Feb2014\"

   Dim wb                          As Workbook
   Dim lCounter                    As Long
   Dim sFile                       As String

   Application.ScreenUpdating = False
   sFile = Dir(csPATH & "PCB*.CSV")
   
   Do While sFile <> ""
   
      lCounter = lCounter + 1
      Set wb = Workbooks.Open(Filename:=csPATH & sFile)
      
      If lCounter = 1 Then
         wb.Sheets(1).Columns("A:B").Copy
         ThisWorkbook.ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteValues, _
                                                           Operation:=xlNone, SkipBlanks:=False, Transpose:=False
         Application.CutCopyMode = False
      Else
         wb.Sheets(1).Columns("B:B").Copy Destination:=ThisWorkbook.ActiveSheet.Cells(1, lCounter + 1)
      End If
      
      wb.Close False
      sFile = Dir()
      
   Loop

   Cells.NumberFormat = "0.00"

   Range("B2").Value = "PCBS01"
   Range("B2").AutoFill Destination:=Range("B2:L2"), Type:=xlFillDefault
   Cells(2, lCounter + 2).Resize(, 3).Value = Array("Average", "STDEV", "%")
   Cells(4, lCounter + 2).FormulaR1C1 = "=AVERAGE(RC[-11]:RC[-1])"
   Cells(4, lCounter + 3).FormulaR1C1 = "=STDEV(RC[-12]:RC[-2])"
   With Cells(4, lCounter + 4)
      .FormulaR1C1 = "=RC[-1]/RC[-2]"
      .NumberFormat = "0.0000%"
   End With
   Cells(4, lCounter + 2).Resize(, 3).AutoFill Destination:=Cells(4, lCounter + 2).Resize(200, 3)


   Cells.EntireColumn.AutoFit

   Application.ScreenUpdating = True

End Sub