Belli aralıktaki verileri, tek hücrede birleştirme

[EKREM1661]

Değerli Arkadaşlar..! Sn.Ömer bey'in verdiği veri birleştirme makrosunda sınırlandırıcı bir değişiklik yapmak istedim, fakat olmadı..

Option Explicit
 
Sub GrupBirlestir()
 
Dim sOns As Long, i As Long, sAt As Long, oPrtr As String
 
sOns = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
 
Range("F1:F" & sOns).ClearContents
 
For i = 1 To sOns
 
    If Cells(i, "A") <> "" And Cells(i + 1, "A") = "" Then
        sAt = i
    Else
        sAt = Cells(i, "A").End(xlDown).Row
    End If
 
    If Cells(sAt, "F") = "" Or Cells(i, "A") = "" Then
        oPrtr = ""
    Else
        oPrtr = "/" 'Birleştirme ayırıcacını değiştirebilirsiniz.
    End If
 
    Cells(sAt, "F") = Cells(sAt, "F") & oPrtr & Cells(i, "A")
 
Next i
Application.ScreenUpdating = True
End Sub

Örneğin; A10:A15 aralığında yer alan verileri, (yukarıda olduğu gibi, aralarına / koyarak) F10 hücresinde birleştirsin..