concat based on selected cell

[Javi78503]

Hey all, so i'm not particularly good at vba (as you can see by my other 2 or 3 posts) but I do give it a go and try to figure it out. So I'm trying to get code to update the data of cell x if the active selected cell is in column y and not empty buuuut it's not working for me. This is what I have:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 15 And Target.Value <> "" Then
    ActiveSheet.Range("O9").Value = Target.Offset(1, 0)
    End If
    End If
End Sub

The reason I'm trying to do this is to contcat data from various cells into one a visible part of the screen. Most of my data takes up all the screen so if i want to concat something I have to do it off screen row by row. I'm trying to get it so it concats the info i need at the top of the table I'm using based on the row of the cell I have selected.

Any help