IF formula true THEN move to next row

here' one way

Sub abc()
 Dim a, b, i As Long, ii As Long, n As Long
 
 With Worksheets("sheet1")
    a = .Range("I1").CurrentRegion
 
    ReDim b(1 To Rows.Count, 1 To 3)
    
    For i = 2 To UBound(a, 1)
       For ii = 2 To UBound(a, 2)
           If Not IsEmpty(a(i, ii)) And a(i, ii) > 0 Then
               n = n + 1
               b(n, 1) = a(i, 1)
               b(n, 2) = a(1, ii)
               b(n, 3) = a(i, ii)
           End If
       Next
    Next
    .Cells(6, "c").Resize(n, 3) = b
 End With
End Sub

your formula is what i need.
how can i bring the new data to a new sheet? so that my first table remains untouched