Public Sub SpecialCopy()
Dim SourceRange As Range, TargetRange As Range
Dim StartCell As Range, i, k As Long
'---  Definitions  -----------
Set StartCell = [INPUT!A2]
Set TargetRange = [OUTPUT!G2]
'-----------------------------
Set SourceRange = [INPUT!A:A]
Set SourceRange = Range(StartCell, SourceRange(SourceRange.Rows.Count).End(xlUp))
For Each i In SourceRange
    If i(1, 7) = 0 Then
        k = k + 1
        TargetRange(k) = i(1, 4)
    End If
Next
End Sub