Alttaki kodu bir modüle ekleyip çalıştırın.
Doğru anladımmı bilemiyorum yinede.
Koddaki Wahr yerlere DOĞRU olarak değiştirin.

Sub F9_Ata()

    Dim i As Long, son As Long

    

    With ThisWorkbook.Sheets("table1")

        son = .Cells(Rows.Count, 1).End(3).Row

        If son < 2 Then Exit Sub

        For i = 2 To son

            Do While .Cells(i, "G").Value <> "Wahr"

                Application.Calculate

                If .Cells(i, "G").Value = "Wahr" Then

                  .Range("D" & i & ":" & "G" & i).Value = .Range("D" & i & ":" & "G" & i).Value

                    GoTo var

                End If

            Loop

var:

            If .Cells(i, "G").Value = "Wahr" Then

                .Range("D" & i & ":" & "G" & i).Value = .Range("D" & i & ":" & "G" & i).Value

            End If

        Next

    End With

    MsgBox "Bitti"

  End Sub