The looping part should be pretty simple. However, I'm not sure what
exactly you want to do with the selection ranges and paste ranges. You can
adjust the first line to the number of rows you want to search through.
I've used 100 as an example.

For r = 1 To 100
If Range("EA" & r).Value = 1 Then
Range("AP2:AZ2").Select
Selection.Copy
Range("AP12:AZ12").Select
ActiveSheet.Paste
End If
Next

Hope this helps.
Paul

"BigWave@AC" wrote in message
oups.com...
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?