查询内容复制保存到新表，请高手指教，谢谢！

4809172

现在“查询”里已经有代码 在同表中显示查询结果  
该如何该代码 实现要把“周六户外活动日记账” 相同活动时间的条目通过窗体 查询出并复制到“费用记录查询”中
------------------------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()

With Sheets("周六户外活动日记账")
ActiveWindow.DisplayGridlines = False     '▼▼工作表隐藏网格线
Set frng = .Range("c:c").Find(TextBox1.Text, , , xlWhole)         '集frng =。范围（“：”），发现（textbox1.text文本，，xlwhole实例）  此4行不能重复保存
    If frng Is Nothing Then                             '如果不frng是没有然后
           MsgBox "以保存"                                 '本以保存”
           Exit Sub
    End If
End With

ends = Columns(1).Find("*", , , , , searchdirection:=xlPrevious).Row '动态找到A列的最后一个单元格
Range("k5:s65536").Clear '清除之前所有的筛选结果

For Each Rng In Range("c5:c" & ends)   '对("a5:a" & ends到最后一个有内容的单元格)做一个循环
     M = M + 1
     If Rng Like TextBox1.Value Then   '如果条件成立，那么
        Range("a" & M + 4 & ":i" & M + 4).Copy Range("k" & K + 4) '将记录复制到另一个区域
    End If

Next
End Sub