Macro export from excel

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