Dear Professors

Sheet1 has following Five columns

-A------B--------C---------D--------E----------F-----
code--country--capital--language--president--currency
--1----India----Delhi----Hindi-----Kalam-----Rupee
--2----Iraq----Bugdad----Arabic-----Jalal-----Riyal
--3----Iran---Thehran---Persian----Mehmood----Dirham

Oval1 on sheet1 has following codee

[vba]
Sub Oval1_Click()

Range("A3:F7").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("a5"), CopyToRange:=Range("Print!A3"), Unique:=False
Sheets("Print").Select

Range("A1").Select
End Sub
[/vba]

Above codes work fine and copy all data to sheets("Print")

My Question is:

How to copy only following columns to sheets("PRINT")?

column A, column B, column D, column F

After Runing MACRO sheets("PRINT") must look like this


code--country---language---currency
--1----India-----Hindi------Rupee
--2----Iraq-----Arabic------Riyal
--3----Iran----Persian-----Dirham


Please help and modify above codes