Hücredeki rakam kadar alta satır ekleme

Private Sub CommandButton1_Click()
    Dim sonsatir As Long
    Dim kacsatir As Integer
    sonsatir = Range("B" & Rows.count).End(xlUp).Row
    On Error Resume Next
    For n = sonsatir To 19 Step -1
    If Range("B" & n) > 0 Then
        kacsatir = Range("K" & n)
            Rows(n + 1 & ":" & n + kacsatir).Insert Shift:=xlDown
    End If
    Next n
End Sub

Private Sub CommandButton1_Click()
    Dim sonsatir As Long
    Dim kacsatir As Integer
    sonsatir = Range("B" & Rows.Count).End(xlUp).Row
    On Error Resume Next
    For n = sonsatir To 1 Step -1
    If Range("B" & n) > 0 Then
        kacsatir = Range("B" & n)
            Rows(n + 1 & ":" & n + kacsatir).Insert Shift:=xlDown
    End If
    Next n
End Sub