paste method of worksheet class failed

Hi my code is as follows
step 1
sheet pool activate
filtering certain records
selection
copy
another sheet activate
filtering same data
paste

but error is shown while pasting

please resolve

Sub cccc()
Worksheets("Pool").Activate
   Selection.AutoFilter Field:=1, Criteria1:="=*Adilabad Nizmabad Kamaredey Pool*", Operator:=xlAnd
Range("a6").Select
ActiveCell.EntireColumn.Select
Cells.Find(What:="Adilabad Nizmabad Kamaredey Pool").Activate
    ActiveCell.Offset(0, 1).Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Worksheets("hq").Activate
   Selection.AutoFilter Field:=1, Criteria1:="=*Adilabad Nizmabad Kamaredey Pool*", Operator:=xlAnd
Range("a6").Select
ActiveCell.EntireColumn.Select
Cells.Find(What:="Adilabad Nizmabad Kamaredey Pool").Activate
    ActiveCell.Offset(0, 1).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial
ActiveSheet.Range("A1").Select
Application.CutCopyMode = False
End Sub