How to fetch data from one sheet in excel and insert into another sheet using VB

I have some data in four columns in excel "sheet1". now i want to fetch only the first column and last column and insert the data into "sheet2" using VB macros.I have attached the sample file.sheeteg.xlsx