Sub Macro8()
Dim ws2 As Worksheet
Set ws2 = Workbooks("Workbook2.xlsx").Sheets(1)
ws2.Cells(1).CurrentRegion.Delete xlShiftUp
With Workbooks("Workbook1.xlsx").Sheets(1).Cells(1).CurrentRegion
Union(.Columns(1), Columns(6)).Copy ws2.Cells(1)
End With
End Sub