макросом дополнить название

[Romuald]

Всем добрый день!
Подскажите, пожалуйста, как макросом сделать дополнение к названию или к чертежу
В колонке "C" , начиная со второй строки (их почти 6000)стоит название детали тепловоза (латинские буквы)и его чертеж. Причем название может начинаться после пробела и название не отделено пробелом от чертежа. короч. при вводе названий... всякое бывает

Reduktor 2PIS364.678/2
Gaika hvostovika 3456-56-67.3
Palec shatuna 5PIS 14. 3567.3.sb
Krishka cilindraM6214D40. 567.98sb.
Мне надо , когда я напротив выбранных названий материалов в колонке "AQ" поставлю значек "y" , запустив макрос ,появляется форма если по умолчанию то у меня после названия и чертежа после пробела появится запись "(ne ispolzovatj) !" или если надо написать что-то другое то вписать в окошке формы.
Т.е. я в колонке "AQ" напротив каждого наименования зап.части, которые мы в дальнейшем не будем использовать или перевезем на другой склад, понаставлю игреков , запускаю макрос и он допишет то что надо

Palec shatuna 5PIS 14. 3567.3.sb (ne ispolzovatj !)
Заранее благодарю

[SAS888]

Примерно так:

Sub Adding()

    Dim x As String, i As Long
    Application.ScreenUpdating = False
    
    x = InputBox("Insert string for add", "String")
    If x = "" Then x = "(ne ispolzovatj) !"
    
    For i = 2 To Cells(Rows.Count, "AQ").End(xlUp).Row
        If Cells(i, "AQ") = "y" Then Cells(i, "C") = Cells(i, "C") & " " & x
    Next

End Sub

[Romuald]

SAS888
Спасибо!! Огромное!!!