Yardım İki Tarih Arasındaki Satırları Birleştirmek

Private Sub CommandButton1_Click()

k = 0: dolusatir = 0 'değişken sıfırlama
t = 0: metin = "" 'değişken sıfırlama
dolusatir = Range("j1") 'bağdeğdolusay formulunden gelen dolu satır sayısı değeri
 
For k = 3 To dolusatir 'ilk üç satırı atladım varolan biçim tarih açıklama yazıyor

If Cells(k, 1).Value > "" Then 'a3 ten sonrası boş ise kontrolü
Cells(k, 4).Value = Cells(k, 1) 'boş ise d3 e a3 teki değeri yazıyor
End If
Next k

For t = 3 To dolusatir 'yine dolusatır kadar döngü
If Cells(t, 4).Value = "" Then 'a3 ten sonrası boş ise
metin = metin & " " & Cells(t, 2).Value + Cells(t + 1, 2).Value
'metin değişkenine a3 değerini ve bir sonraki hücre a4 değerini atıyor

Else: Cells(t, 5).Value = metin:
'eğer a3 boş değil ise a5 e metindeki değeri yazıyor
metin = "" 'metin değişkeninin içeriğini boşaltıyor
End If

Next t


End Sub