标准差值怎么查询？

如何把多行数据合并为一列原始数据表
甲        111        112        113        114        115
乙                                       
丙        311        312        313        314        315
丁        411        412        413               
戊        511        512                        
己        611        612        613        614        
处理要得到的数据
甲        111
甲        112
甲        113
甲        114
甲        115
丙        311
丙        312
丙        313
丙        314
丙        315
丁        411
丁        412
丁        413
戊        511
戊        512
己        611
己        612
己        613
己        614

找到一个，不知道如何使用，是不是正确。

Sub test()
Dim rw As Range, i As Long, lc As Long

With ActiveSheet
    lc = .UsedRange.Columns.Count
    For Each rw In .UsedRange.Rows
        For i = 2 To lc
            If rw.Cells(i) <> "" Then
                .Range("P65536").End(xlUp).Offset(1, 0) = rw.Cells(1)
                .Range("P65536").End(xlUp).Offset(0, 1) = rw.Cells(i)
            End If
        Next i
    Next rw
End With
End Sub