Почему эта формула ЕСЛИ не работает?

Question

Может кто-нибудь помочь мне с нижеприведенным. Кажется, что все найти без проблем, но он не будет печатать отчет. Часть Cell (i, 1) = hr.Cells (j, 3).В какой-то момент он каким-то образом заставил его напечатать, но просто переписал первую ячейку.

Dim hr As Worksheet
Dim report As Worksheet
Sub populateMetaData()
Dim i As Integer, j As Integer
Set report = ActiveWorkbook.Worksheets("Report")
Set hr = ActiveWorkbook.Worksheets("HR_Report")

For j = 2 To hr.UsedRange.Rows.Count
    For i = 2 To report.UsedRange.Rows.Count

        If hr.Cells(j, 10) = "AWM TECH & OPS" Then
            report.Cells(i, 1) = hr.Cells(j, 3)

        End If

    Next i
Next j


End Sub