Hi,
I used the suggested macro from this post here to fix a problem that I had:
http://www.excelforum.com/excel-gene...html?p=3022404

Now I have another project where I need to merge several files but instead of rows of data like in the linked discussion above, the data is in column format. I tried to modify the macro for columns but my knowledge of the macro language is a bit limited (for now anyway ;-) )

Below is the VBA code suggested by stanleydgromjr from the above link. I like the way this macro is written. It's an elegant approach to the problem. I'd like to have some pointers on how I can modify this code to copy columns instead of rows.

Option Explicit
Sub GetMyData()
Dim MyDir As String, FN As String, SN As String, LR As Long
Application.ScreenUpdating = False

MyDir = "C:\Documents and Settings\maurica\My Documents\CompanyContacts\Raw"

SN = "Sheet1"
FN = Dir(MyDir & "\*.xls")
With ThisWorkbook.Sheets("Compilation")
  Do While FN <> ""
    If FN <> ThisWorkbook.Name Then
      With .Range("A" & Rows.Count).End(xlUp).Offset(1)
        .Formula = "=IF('" & MyDir & "\[" & FN & "]" & SN & "'!A2="""","""",'" & MyDir & "\[" & FN & "]" & SN & "'!A2)"
      End With
      LR = .Cells(Rows.Count, 1).End(xlUp).Row
      .Range("A" & LR).Copy .Range("B" & LR & ":IV" & LR)
      With .Range("A" & LR & ":IV" & LR)
        .Value = .Value
      End With
    End If
    FN = Dir
  Loop
End With
Application.ScreenUpdating = True
End Sub

Thanks,