复制查找行和指定列的单元格区域

有见地产

感谢各位关注！和指导！假定sheet1有这样一段代码：[code=vb]    Dim rng As Range, i As Integer, fs As String   
For i = 2 To Range("a1").CurrentRegion.Rows.Count   
fs = Cells(i, "A").Value   
Sheets("Sheet1").Activate   
Set rng = Range("a:a").CurrentRegion.Cells.Find(fs)[/code]
然后下面想实现的功能是复制查找到的目标行和指定不连续列相交的单元格，比如rng.row与当前工作表C,D,E,G列相交的单元格，
到指定工作表以连续的单元格出现
比如复制到sheet2的A1，A2，A3，A4单元格
请问下面要怎样写？
谢谢了！