Excel宏，操作筛选出结果复制到一个新的工作表但位置会不同

chenbao006

Excel宏，操作筛选出结果复制到一个新的工作表，每一次点运行复制出结果粘贴到新工作表的位置都不固定的有时候会去到A3:G4等其它位置上，因为新的工作有公式。大家帮帮忙分析是什么问题？能不能固定位置呢？



Sub 法国()
'
' 法国 Macro
' 宏由 Ail24 录制，时间: 2019/04/28
'

'
    Rows("1:1").Select
    Selection.AutoFilter
    ActiveWorkbook.Names.Add Name:="即时库存!_FilterDatabase", RefersTo:="=即时库存!$A$1:$E$1", Visible:=False
    Range("A1:E1776").AutoFilter Field:=4, Criteria1:=Array("法国"), Operator:=xlFilterValues
    ActiveWorkbook.Names.Add Name:="即时库存!_FilterDatabase", RefersTo:="=即时库存!$A$1:$E$1", Visible:=False
    Columns("A:E").Select
    Selection.Copy
    Sheets("仓库").Activate
    Range("$A$1:$E$1").Select
    ActiveSheet.Paste
    Range("G3").Select
    Sheets("即时库存").Activate
    Range("A:E").AutoFilter Field:=4, Criteria1:=Array("法国 在途"), Operator:=xlFilterValues
    ActiveWorkbook.Names.Add Name:="即时库存!_FilterDatabase", RefersTo:="=即时库存!$A$1:$E$1", Visible:=False
    Selection.Copy
    Sheets("在途仓库").Activate
    ActiveSheet.Paste
    Range("$A$1:$E$1").Select
    Sheets("即时库存").Activate
    Selection.AutoFilter
    Range("H2").Select
    Application.CutCopyMode = False
    Range("I2").Select
End Sub

过江龙

建议上附件，做个效果示列。要固定位置应该很简单，难在猜不出你要解决的问题。