copy and insert rows

Jeg vil gerne kopiere en bestemt række ned i x antal rækker nedenunder afhængig af hvilket et tal der står i cellen (Kl, 9) men det driller lidt. Jeg er kommet så langt:

Public Sub Test()
    Dim Rk As Integer, Kl As Integer
      For Kl = 2 To 300    ' kolonne I
            If Cells(Kl, 9) <> 0 Then  ' når der er en værdi i celle(I,kl) indsættes der antallet af rækker
                Rk = Cells(Kl, 9)
               
                Rows("Kl:Kl").Select
                Selection.Copy
                Rows("Kl:Kl+Rk").Select
                Selection.Insert Shift:=xlDown
         
            End If
        Next
End Sub

Men den brokker sig over at Rows("Kl:Kl").Select. Kan I hjælpe med en løsning?