Excel宏编程怎么实现查找单元格数值，定位到所在单元格的一行，并把这一行所有不同列的单元格内容，生成到同一行最后一个单元格内

Excel宏编程怎么实现查找一个数据，并定位到单元格所在一行，并把这一行所有不同列的单元格内容，集中显示到这一行最后的单元格内。
我的思路是：输入我想查找的数据，然后定位到单元格，获取单元格的行和列，然后读取这一行不同列的单元格内容，并用循环赋值到数组，最后把这个数组显示到最后一行的单元格内。代码如下，运行出错，请指点一下，谢谢！
Public Sub HB()
Dim H As Integer
Dim L As Integer
Selection.Offset(1, 0) = H
Selection.Offset(2, 0) = L
Dim aa(20) As String '存放读取单元格的数值
Dim ss(20) As String

Dim lie(9) As String
lie(1) = "A"
lie(2) = "B"
lie(3) = "C"
lie(4) = "D"
lie(5) = "E"
lie(6) = "F"
lie(7) = "G"
lie(8) = "H"
lie(9) = "I"

For i = 1 To 9
ss(i) = Sheets("sheet1").Cells("h,i).Value
aa(i) = ss(i)
Next i
Dim z As String
For y = 1 To 9
z = aa(y - 1) & aa(y)
Next y
Worksheets("sheet1").Range("NH").Value = z

End Sub

录制宏，然后再改，应该会很顺利