paste method of worksheet class failed

Please explain some more. Which fields need to be filtered?

What do you mean by paste into 146 x 3?

Originally Posted by arlu1201

Please explain some more. Which fields need to be filtered?

What do you mean by paste into 146 x 3?

sir
data have to paste sheet filter data is vijaywada
select from b7 to bj152
in before sheet select b4 to b441 and simpaly paste
but for macro without giving instuction

read this macro you will get idea

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
Activesheet.Paste