Добавить название

[Romuald]

Всем добрый день!!!!
Помогите, пожалуйста!!
У меня в Sheet-e1 в колонке С названия фирм. Справа, в колонке D - даты, когда был приход по этим фирмам и общее кол-во(kopa)
Мне нужно макросом в колонке С дописать наименования фирм, в тех ячейках, гдев колонке D стоит дата прихода и слово "kopa" .
На Sheet-e2 , как пример, я дописал несколько названий и выделил желтым , как иногда стоят данные
Помогите, пожалуйста
Заранее благодарю
Ромуальд

[SAS888]

Выполните следующий макрос:

Sub Main()
    Dim i As Long
    Sheets("Sheet1").Activate: Application.ScreenUpdating = False
    For i = 1 To Cells(Rows.Count, "D").End(xlUp).Row
        If Cells(i, "D") <> "" Then Cells(i, "C") = Cells(i, "C").End(xlUp)
    Next
End Sub

[Romuald]

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