Private Sub CommandButton1_Click()

    Dim i As Integer
    Dim 선택행 As Integer

    With ListBox1

        선택행 = .ListIndex

        .AddItem .List(.ListIndex), 선택행 - 1

        For i = 1 To .ColumnCount - 1

            .List(선택행 - 1, i) = .List(.ListIndex, i)

        Next

        .RemoveItem .ListIndex
        .ListIndex = 선택행 - 1

    End With

End Sub