Problem with UsedRange

[Nader]

I replaced this line in my code. because the UsedRange cause me problem but didn't succed with me

The new code:
R = Sheets("Material").Range("A1").End(xlDown).Row.Count

The last code :
R = Sheets("Material").UsedRange.Rows.Count


Dim myRange As Range
Dim R As Long
Dim cell As Range
Set myRange = Worksheets("sheet1").Range("A19:A100")
For Each cell In myRange
If IsError(Application.Match(cell.Value, Sheets("Material").Columns(1), 0)) _
Or IsError(Application.Match(cell.Offset(0, 1).Value, Sheets("Material").Columns(2), 0)) _
Or IsError(Application.Match(cell.Offset(0, 2).Value, Sheets("Material").Columns(3), 0)) _
Or IsError(Application.Match(cell.Offset(0, 3).Value, Sheets("Material").Columns(4), 0)) Then

R = Sheets("Material").Range("A1").End(xlDown).Row.Count
If R <> 1 Or Sheets("Material").Range("A1").Value <> "" Then R = R + 1
cell.Resize(, 8).Copy Sheets("Material").Range("a" & R)

End If
Next cell

[Jan Karel Pieterse]

Both new code and old code have a problem.

New code should read .Rows.Count
Old code: UsedRange doesn't necessarily start on row 1!!!

[Nader]

I tried but it's only copy one row, not when it was including a UsedRange property