IF Then Else with For Next Loops VBA

If Then Else with For Next loops VBA