i have two sheets in which one is blank

using vba code i want to copy column one three seven and paste them into another sheet