横向数据转换成竖向数据，程序遇到问题，求解决！

大家好，刚刚做了一个把横向数据转成竖向数据的工具。但是没有达到我想要的效果，代码如下：求帮忙解决。
Sub NbrTool()
'
'Marco Record by jason
'  Time 2011-08-22 23:22
'
Dim i, j, k As Integer

    Sheets("Sheet3").Activate
    Cells.Select
    Selection.ClearContents
    Sheets("Sheet2").Activate
    i = 2
    k = 2
    n = 3
    Do While Sheets("Sheet2").Cells(i, 1) <> ""
       For j = 2 To 25
             If Sheets("Sheet2").Cells(i, j) <> "" Then
                Sheets("Sheet3").Cells(k, 1) = Sheets("Sheet2").Cells(i, 1)
                Sheets("Sheet3").Cells(k, 2) = Sheets("Sheet2").Cells(i, 2)
                Sheets("Sheet3").Cells(k, 3) = Sheets("Sheet2").Cells(i, 3)
                Sheets("Sheet3").Cells(k, 4) = Sheets("Sheet2").Cells(i, 4)
                Sheets("Sheet3").Cells(k, 5) = Sheets("Sheet2").Cells(i, 5)
              End If
        Next j
        i = i + 1
        k = k + 1
    Loop
     
     Sheets("Sheet3").Activate
     Sheets("Sheet3").Cells(1, 1) = "CellNo"
     Sheets("Sheet3").Cells(1, 2) = "Cell_SectorNo"
     Sheets("Sheet3").Cells(1, 3) = "Nbr_CellNo"
     Sheets("Sheet3").Cells(1, 4) = "Nbr_SectorNo"
     Sheets("Sheet3").Cells(1, 5) = "Nbr_PN"
     MsgBox "所有邻区转换完成！" & Date, vbApplicationModal
End Sub

自己先顶下，水平有限，谢谢大家帮忙！小弟不胜感激！！！

看不懂你想要怎么转换？
应该手工做个示例。

[local]1[/local]我录了个视频，你看下，就是把表2中的横向数据在表3中竖过来，表2中的，前2列的数据不变，看下我录的视频。谢谢

[ 本帖最后由 ugvf2009 于 2011-8-12 16:15 编辑 ]