Boa tarde galerinha,

Estou com essa macro abaixo para copiar a linha quantas vezes eu quiser, é so alterar o valor desejado,
porem queria adaptar ela para copiar apenas as linhas da coluna D e E, não quero duplicar as linhas das demais colunas a não ser essas indicadas.
alguem pode me auxiliar?

Sub Repete()
    Dim i, j, primeira As Integer
    For i = 4 To Range("A65536").End(xlUp).Row
        Rows(i).Copy
        primeira = Range("A65536").End(xlUp).Offset(1, 0).Row
        For j = 1 To 2
            Rows(primeira).Select
            ActiveSheet.Paste
            primeira = primeira + 1
        Next j
    Next i
End Sub

Tenho 38 linhas com dados diferentes, quando fosse replicar, replicasse as 38 em ordem, depois as 38 novamente em ordem, e não replicar 38 da primeira linha depois 38 da segunda linha, depois 38 da terceira linha..