你的问题问得太简单了，还要人联想。给你一个参考
在sheet2里面插入一个textbox1，一个CommandButton1用于筛选地区
Sub CopyCustom()
For i = 2 To Sheet1.Cells(65536, 1).End(xlUp).Row '循环表1各行
'中间这段代码，请加点分。没分没动力

Next i
End Sub
'-------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
Call CopyCustom '这只是一个调出按钮
End Sub