Повторный макрос VBA копирования и вставки на основе содержимого ячейки

Question

Доброе утро,

Пожалуйста, смотрите фото для контекста моей проблемы, я также пытался запустить код VBA - любая помощь будет принята с благодарностью! Мой усеченный набор данных - существует неизвестное количество приложений и проектов.

Я пытаюсь разобраться, когда может возникнуть потенциальный конфликт в развертывании проектов. Критерий, над которым я сейчас работаю, составляет 28 дней с каждой стороны (ячейка K2), его можно изменить на 14 или 7 дней.

Мой текущий макрос для записи 'столкновений' выглядит следующим образом:

`Dim i As Integer
i = 2
Do While i < ActiveSheet.UsedRange.Rows.Count + 1

Range("B1").Offset(i - 1, 0).Copy
Range("H2").Select
ActiveSheet.Paste


i = i + 1
Loop

Application.ScreenUpdating = True

MsgBox i

End Sub'

Я хочу, чтобы другой макрос выполнялся внутри этого макроса, где приложение совпадает с приведенным выше, и в столбце D есть конфликт (это просто формула =IF(AND...), в которую помещается содержимое формат в этом изображении. Это только для первого набора столкновений.

Я начал писать некоторый код, основанный на предыдущем VBA, но застрял, любая помощь очень ценится.

`Sub clashcompile()
Dim lastrow As Long
Dim lastcol As Long
Dim i As Long


With ActiveSheet

    lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
    For i = lastrow - 1 To 2 Step -1

        If .Cells(i + 1, "A").Value = .Cells(i, "A").Value And _
            .Cells(i + 1, "B").Value > .Cells(3, "H").Value And _
            .Cells(i + 1, "B").Value < .Cells(4, "H").Value And _
            .Cells(i + 1, "D").Value = .Cells(2, "L").Value Then'

Я застрял после этого..

Пожалуйста, спросите, нужны ли какие-либо разъяснения.

Заранее спасибо.