For i = 5 To Cells(Rows.Count,"A").End(xlUp).Row
If Cells(i,"A")= 1 Then
Range("N4:U4").Copy Destination:=Cells(i,"N")
End If
Next i

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Blue" wrote in message
...
Hi

Last request tonight

If column A row = 1 copy cells N4,O4,P4,Q4,R4,S4,T4,U4
to N,O,P,Q,R,S,T,U of that row, starting at row 5, repeat to end of column
A

Again need it in code as data is refreshed and clears certain cells

Thanks to people who have helped me tonight, really has been a great help.

Blue