Sub t()
    Dim rng As Range
    
    For Each rng In ActiveSheet.UsedRange.Columns(1).Cells
        rng.Value = Split(rng.Value, " ")(0)
    Next
End Sub

Sub www()
    With Intersect([a:a], ActiveSheet.UsedRange)
        .Replace " *", "", 2
        .NumberFormat = "dd/mm/yyyy"
    End With
End Sub

Sub qqq()
Dim sWord As String
    sWord = "текст2" 'Здесь Ваш искомый текст
    With ActiveCell
        ActiveCell = Left(.Text, InStr(1, .Text, sWord) - 1) & sWord
   End With
End Sub

Sub qqq()
Dim sWord As String
    sWord = "текст2" 'Здесь Ваш искомый текст
    With ActiveCell
        ActiveCell = Left(.Text, InStr(1, .Text, sWord) - 1) ' & sWord
   End With
End Sub

Sub qqq()
Dim sWord As String, i As Long
    sWord = "текст2" 'Здесь Ваш искомый текст
    For i = 1 To 10 'С первой по десятую строку столбца А
        Cells(i, 1) = Left(Cells(i, 1).Text, InStr(1, Cells(i, 1).Text, sWord) - 2) ' Поменяли на двойку - теперь без пробела
    Next
End Sub

Sub qqq()
Dim sWord As String, i As Long
    sWord = "(КОЭФ" 'Здесь Ваш искомый текст
    For i = 12 To 17 'С 12 по 17 строку столбца С
        If Cells(i, 3) Like "*" & sWord & "*" Then Cells(i, 3) = Left(Cells(i, 3).Text, InStr(1, Cells(i, 3).Text, sWord) - 1) ' Поменяли на двойку - теперь без пробела, оставил единицу
    Next
End Sub