Copying data from certain papers except the main

[sofas]

Hello, please correct the following code. I can't copy data from certain papers except the main one

Sub copy()
Dim last As Long, lr As Long
Dim sh As Worksheet: Set sh = Sheet1
Dim WSname As String

With Sheet1
last = .Range("A" & Rows.Count).End(xlUp).Row
End With

Dim ArrayOne As Variant
ArrayOne = Array("Sheet3", "Sheet8")

lr = Range("a" & Rows.Count).End(xlUp).Row
        
        
    With Sheets(ArrayOne)
          
            .Range("A2:G" & lr).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=sh.Range("A" & last + 2)
      
        sh.Range("i" & last + 2).Value = WSname
        
        End With
  


End Sub

 

[OaklandJim]

Your need is not clear. What papers? what is meant by "...certain papers except the main one"? Maybe give more detail about the issue and the result desired. Consider posting the offending data -- or at least realistic data -- using Mr Excel's XL2BB add-in that enables you to post part of a worksheet. For details see HERE.