Help Unable to copy data using filter

[sanz]

Hi All,

I am trying to apply filter to the code and need to copy and paste the data in the Last row of the second sheet.

Below is the code i am facing issue with, data is getting freeze in the second sheet.

Dim sh4 As Worksheet, rng As Range, LR As Long
Set sh4 = Workbooks("Book6.xlsx").Worksheets("Sheet1")
Range("A1").AutoFilter Field:=1, Criteria1:="#N/A"
Range("A1").AutoFilter Field:=3, Criteria1:=">=5"
Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0).Select
ActiveWindow.FreezePanes = True
Set rng = sh4.Range("A2:A")
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste


Is there any alternative method/macro to copy and paste filtered data to last row in second sheet.

 

[storm8]

you can avoid all the select with this

sh4.Range("A2:A").copy destination:=sheets("Sheet2").range("A1")
[/COLOR][COLOR=#333333]

 

[sanz]

Thanks for your replay storm,

But i am still unable to paste the data in sheet2

 

[storm8]

Range("A2:A") seems as invalid range.
I guess you want range("A2").resize(range("A2").end(xldown).row-1,1)