How to capture row addresses?

See if this helps

  ' copy rows in Source that have value of 1 in column N (column 14)
  For lIdx = wsSource.Cells(500, 1).End(xlUp).Row To 2 Step -1
    If Not (IsError(wsSource.Cells(lIdx, 14).Value)) Then
      If (wsSource.Cells(lIdx, 14).Value = 1) Then
        wsSource.Cells(lIdx, 1).EntireRow.Copy
        Debug.Print wsSource.Cells(lIdx, 1).Row ''''''This should get you the row number'''''''''
        wsDest.Cells(wsDest.Cells(25000, 1).End(xlUp).Row + 1, 1).PasteSpecial xlPasteValues
        lCopyCount = lCopyCount + 1 'tally to check when I do a copy to test to see how much stuff was moved, used for later
      End If
    End If
  Next lIdx