Hi
use Bob's suggestion :-)

--
Regards
Frank Kabel
Frankfurt, Germany


Blue wrote:
Frank
I should have made it clearer that it is the formulas in the cells
N4:U4 that I want to copy not the values, which bit do I need to
change to achieve this?

Thanks Blue

Wondering which book to buy to get head around this DIM stuff?


"Frank Kabel" wrote in message
...
Hi
try

Sub change_b()
Dim RowNdx As Long
Dim LastRow As Long
Application.ScreenUpdating = False
LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).row
For RowNdx = 5 to LastRow
with Cells(RowNdx, "A")
if .value = 1 then
.offset(0,13).resize(1,8).value =
Range("N4:U4").value End If
end with
Next RowNdx
Application.ScreenUpdating = True
End Sub


--
Regards
Frank Kabel
Frankfurt, Germany


Blue wrote:
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