If column I is lower than column D then paste the symbol to sheet4

[Leonardo1234]

If column I is lower than column D then paste the symbol to sheet4 as shown in the sample file

 

[Belleke]

Hi,

Sub belle()
Dim SH3 As Worksheet, SH4 As Worksheet
Dim ar, ar1, j As Long, t As Long
Dim r As Range
    Set SH3 = Sheets("Sheet3")
    Set SH4 = Sheets("Sheet4")
With SH3
    ar = .Cells(1).CurrentRegion
    ReDim ar1(UBound(ar), 9)
    For j = 2 To UBound(ar)
    If ar(j, 9) < ar(j, 4) Then
          ar1(t, 0) = ar(j, 1)
          t = t + 1
    End If
    Next j
SH4.Cells(Rows.Count, "C").End(xlUp).Offset(1).Resize(UBound(ar1) + 1, UBound(ar1, 2) + 1) = ar1
End With
End Sub

 

[Marc L]

Using Excel basics like any beginner can yet manually operate
needs only a codeline to copy the expected result !

As a beginner starter :​

Sub Demo4Noob()
    Sheet3.[P2].Formula = "=I2<D2"
    Sheet3.UsedRange.AdvancedFilter xlFilterCopy, Sheet3.[P1:P2], Sheet4.[C1]
End Sub

Do you like it ? So thanks to click on bottom right Like !
​