Sub NoktadanSonraBoslukKaldir()
    Dim cell As Range
    Dim lastRow As Long
    
    ' Aktif çalışma sayfasındaki tüm hücreleri kontrol et
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, "D").End(xlUp).Row ' Verilerin bulunduğu son satırı bul
        ' Her satırdaki hücreleri kontrol et
        For Each cell In .Range("D1DA" & lastRow)
            ' Eğer hücrede nokta varsa ve noktadan sonra boşluk varsa, boşluğu kaldır
            If InStr(cell.Value, ". ") > 0 Then
                cell.Value = Replace(cell.Value, ". ", ".") ' Noktadan sonra gelen boşluğu kaldır
            End If
        Next cell
    End With
End Sub