Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub

    If Target.Column = 2 Then

        Dim StartRow As Long

        Dim EndRow As Long

        Dim TargetRow As Long

        Dim CopyRange As Range

        

                TargetRow = Sheets("AnaSayfa").Range("L" & Rows.Count).End(xlUp).Row + 1 ' Hedef satırı belirleyin

                StartRow = (TargetRow - 2) * 5 + 1  ' Kopyalayacağınız aralığı belirleyin

                EndRow = StartRow + 4

        

                Set CopyRange = Target.Worksheet.Range("B" & StartRow & ":B" & EndRow) ' Hedef hücrelere veriyi kopyalayın

                CopyRange.Copy Destination:=Sheets("AnaSayfa").Range("L" & TargetRow)

    End If

End Sub