VBA代码问题？

在一个工作薄中，其中一个工作表粘贴另一个工作表中的数据后，希望I列至P列为空，Q列为零的时候此行隐藏。以此类推。。。。。底下是我录制的一个宏，在添加什么代码可以一次性完成即粘贴又隐藏的功能，请高手指教！！

Sub 一月数据()
'
' 每月提取数据 Macro
'
If MsgBox("确认要提取当前月份数据吗？", vbInformation Or vbOKCancel) = vbOK Then

Sheets("主表").Visible = True
Sheets("主表").Select
Range("A8:R1800").Select
Selection.Copy
Sheets("1月").Select
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If

end sub
最好不要改动我的代码，添加上什么代码可以满足我那个条件呢，请高手指教？

没有明白你的意思