vba 从sheet1中挑选出符合条件的单元格将内容复制到sheet2中怎么做?

现在sheet1中我把一些符合给定条件的单元格全标红了，然后我想将A列中没标颜色的单元格复制到sheet2的A列，并连续显示，不必单元格对应，B列也同样如此，如果这一列中没有没标色的，那就留空，也就是列与列要对应。sheet1中一列的数据有多有少无法确定，但能肯定的是他们是连续的，也就是如果有空白格，证明这一列的数据就没了。请问如何编写呢?

***********************************************************

Sub test()
'假设sheet1的A列从第一行开始有数据，以下就可以实现
For i = 1 To Sheet1.Cells(1, 1).End(xlDown).Row
If Sheet1.Cells(i, 1).Interior.ColorIndex = xlNone Then
Sheet1.Cells(i, 1).Copy Sheet2.Cells(Sheet2.Cells(65536, 1).End(xlUp).Row + 1, 1)
End If
Next

End Sub

对于B列也是一样，参照这个写法把相应的列换成B列的就可以了