For j = 42 To 100
If Cells(j, 13).Value = "1" Then
Cells(j, 11).Select
ActiveCell.FormulaR1C1 = "1"
Range(Cells(j, 17), Cells(j, 18)).Copy
If Range("f3").Value = "" Then
Range("f3").Select
Selection.PasteSpecial Paste:=xlPasteValues
Else
If Range("f4").Value = "" Then
Range("f4").Select
Selection.PasteSpecial Paste:=xlPasteValues
Else
Range("f3").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
End If
End If
End If
Next j