Pessoal, mais uma vez boa noite.

Estou uzando a rotina abaixo e esta funcionando perfeitamente,

Sub Copiar_primeiro()
'
' Macro1 Macro

  Range("J6:k" & Range("P4")).Select
    Selection.Copy
    Range("O6").Select
    ActiveSheet.Paste
    Range("o2").Select
End Sub

Mas em algums lugares, precisaria ser diferente, o range de seleção deveria ser variável nas duas colunas (segue abaixo).
Mas dessa maneira não esta funcionando.

Sub Copiar_primeiro()
'
' Macro1 Macro

  Range("J & Range("P4"):k" & Range("P4")).Select
    Selection.Copy
    Range("O6").Select
    ActiveSheet.Paste
    Range("o2").Select
End Sub

Alguém pode me dizer onde esta o erro e me ajudar por favor.

Obrigado

Ricardo