I am looking for a way to create a macro that will search though a
column and when it encounters a specific value it performs the
following function.

If EA12 = 1 Then
Range("AP2:AZ2").Select
Selection.Copy
Range("AP12:AZ12").Select
ActiveSheet.Paste

I have not been able to successfully use any looping methods to this
point. Any Ideas?