Thanks Cecil for you assistance,
Regards,
Richard

-----Original Message-----
Richard,
try this
Cecil

Sub Macro1()
Dim i As Long, j As Long, LR As Long
i = 3
j = 74 'starting row of column Z
LR = Range("Z" & Rows.Count).End(xlUp).Row
Range(Cells(70, 3), Cells(70, 12)).ClearContents
Do Until i = 13 Or j = LR + 1
If Not IsEmpty(Range("AA" & j).Value) And _
IsNumeric(Range("AA" & j).Value) Then
If Abs(Range("AA" & j).Value) 0 Then
Cells(70, i).Value = Range("Z" & j).Value
i = i + 1
End If
End If
j = j + 1
Loop
End Sub

"Richard" wrote in message
...
Thanks Cecil,
Unfortunately, from time to time there will be one or
two
letters in the AA column. This must be causing the
problem. Is there any way around this.
Cheers,
Richard.


.