dynamisk range - vba

Hej Eksperter
Jeg sidder og bøvler med at få et stykke vba kode til at blive lidt mere dynamisk. jeg har dette stykke kode som fint flytter data fra range R5/Q5 til Q5,

If Not Intersect(Target, Range("O5")) Is Nothing Then
            Range("Q5").Value = Range("R5").Value & Chr(10) & Range("Q5").Value
        End If

Men jeg har mange rækker, så hvordan får jeg funktionen til at virke sådan at hvis jeg så klikker på O2756 så skal den smide data til R2756/Q2756 til Q2756.
Jeg er strandet her

If Not Intersect(Target, Range("$O$5:$O$3000")) Is Nothing Then
            Range("Q5?????").Value = Range("R5?????").Value & Chr(10) & Range("Q5?????").Value
        End If