Я пытаюсь вставить вывод на отдельный лист, когда условие выполняется

Question

Я работаю с 39 хранилищами данных, где я хочу увидеть, какой NPV больше 5% от установленной цели. Для этого я начал с 15% (0,15) в качестве базового процента продаж, а затем он каждый раз увеличивается на 1%, и он должен останавливаться в том месте, где достигнута цель в 5%, а затем данные, доступные на тот момент. необходимо скопировать на другой лист. Я попробовал следующий код и был поражен. Мы очень ценим быструю помощь.

Sub eightyftmodel_simulation()
    Dim i As Integer, J As Double

    For i = 4 To 42              
        Sheets("Simulation").Range("D2").Value = Sheets("center checks").Cells(i, 30).Value

        For J = 0.15 To 1    
            Sheets("Simulation").Range("D4").Value = J 
            If Range("I6") > 0.05 Then
                'Center Name 
                 Sheets("80ftmodel").Cells(i, 1).Value = Sheets("simulation").Range("D2")

                 'Revshare%     
                 Sheets("80ftmodel").Cells(i, 2).Value = J

                 'ET NPV
                 Sheets("80ftmodel").Cells(i, 3).Value = Sheets("simulation").Range("I2")

                 'MG NPV
                 Sheets("80ftmodel").Cells(i, 4).Value = Sheets("simulation").Range("I3")

                 'Revshare NPV
                 Sheets("80ftmodel").Cells(i, 5).Value = Sheets("simulation").Range("I4")

            Else: J = J + 0.01      
            End If        
        Next J
    Next i    
End Sub