'copy and paste J column Columns("J:J").Select Selection.Copy Columns("K:K").Select ActiveSheet.Paste