Parece que não consigo fazer esse trabalho. Eu continuo ficando preso

    Rows(rng 5).Select

O que estou tentando fazer é copiar a linha da célula ativa e inserir a célula copiada em uma linha 5 linhas abaixo da célula ativa.

Sub CopyConcatenate()


    Dim ws As Worksheet
    Dim rng As Range

    Set rng = ActiveCell.Rows

    rng.Select
    Selection.Copy
    Rows(rng 5).Select
    Selection.Insert Shift:=xlDown

End Sub