Macro export from excel

Originally Posted by xladept

Try this: (You can assign the 1 and 2 appropriately)

Sub Human() '!
Dim w1 As Worksheet, w2 As Worksheet
Set w1 = Workbooks("Excel 1").Sheets("Sheet1")
Set w2 = Workbooks("Excel 2").Sheets("Sheet1")
w2.Columns("H:P").copy w1.Range("C1")
End Sub

What if I have 5 excel files and I want to take data from column C to J from all of them and paste them into the main ex el. Is there a way to do it?