EXCEL中如何把标记的整行自动生成另一个表格中

我能想到的只有这个了：
1、增加一列辅助列D，注明颜色。这个通过A列的颜色筛选很容易做到。例如第三行就变成了 广州 小张 广州第二小学 红色
2、在代码窗口输入以下代码然后运行，内容改动之后再运行一次就可：
Sub sh()
Dim i, n, a As Integer
For i = 2 To 9 ’这里的9可更改，根据你实际最多的行数来设置就可
For n = 0 To 2
If Sheet1.Cells(i, 4).Value = "红色" Then Sheet2.Cells(i, 1).Offset(0, n).Value = Sheet1.Cells(i, 1).Offset(0, n).Value
If Sheet1.Cells(i, 4).Value = "绿色" Then Sheet3.Cells(i, 1).Offset(0, n).Value = Sheet1.Cells(i, 1).Offset(0, n).Value
Next n
Next i
End Sub
这是我第一次写代码...所以...这个代码有个缺点就是生成到sheet2和sheet3里面的存在空行。T.T内牛满面……哪个高手过来写个完美点的代码呀……让我学习下……