I have done this but obviousy is not working, so any help would be very very usefull!! thanx!!

Range("E10").Select
For i = 10 To 40
If Ei > 10 And Fi > 50 Then Range("Ei").Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
'Cells(ActiveCell.Row + 1, 1).Select'
Sheets("Sheet1").Select
' Cells(ActiveCell.Row + 1, 1).Select'
Next i
End Sub