Excel VB 编程

急求帮助！
在Excel的当前sheet中搜索具有某一数值，比如值为0.2的单元格，将表明该单元格位置的行及列数分别赋予2个变量，如n1及n2中，再复制具有行数及列数为n1和n2的该单元格并粘贴到当前sheet中某处，如F1处。
上述程序如何写，望给予指导，谢谢！ --------------------编程问答-------------------- 对cell进行遍历，对每一个objExcel.Cells(i, j).value进行判断，最好将所有符合条件的
记录以数组形式保存起来，格式rownum,colnum，最后生成一个csv或xls的新文件 --------------------编程问答-------------------- 初学者，不太懂，能否帮助以下面的程序为蓝本，改一下。
急等用，谢谢了！
Sub Macro1()
'
' Macro1 Macro
' 宏由微软用户录制，时间: 2012-6-26
'

'
    Dim n1 As Integer
    Dim n2 As Integer
    Columns("b:b").Select
    ActiveSheet.Cells.Find(What:="0.2", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:= _
        False, MatchByte:=False, SearchFormat:=False).Activate
        n1 = ActiveSheet.UsedRange.Rows.Count
        n2 = ActiveSheet.UsedRange.Columns.Count
    MsgBox n1
    MsgBox n2
End Sub
--------------------编程问答-------------------- 我是个菜鸟，不太懂，能否麻烦大侠按上面的建议写个程序，我参考一下。
非常感谢！ --------------------编程问答-------------------- 求教：
以Cell（n1, n2）的方式选择worksheet中的某一范围，如何编程施行。
如：
Range("cells(n1, n2)：cells（15， 15）").Select
为什么不能运行。
求正确的程序格式。
谢谢！ --------------------编程问答--------------------

Range(Cells(n1, n2), Cells(15, 15)).Select

补充：VB ,  VBA