F sütununa tıklayınca çalışır.
Herhangi yere tıklayınca çalışması için ise If Target.Column = 6 And Target.Row > 1 Then burayı ve en sondaki End If bunu siliniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim s As Long

    If Target.Column = 6 And Target.Row > 1 Then

        Sheets("RAPOR_2").Cells.ClearContents

        For i = 1 To Range("F5000").End(3).Row

            If (Cells(i, "F") = "") Then GoTo atla

            s = s + 1

            Sheets("RAPOR_2").Range("A" & s & ":M" & s).Value = Range("A" & i & ":M" & i).Value

atla:

        Next i

    End If

End Sub