Max,
The point was to replace the old nc= with the new, not to have both.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Max" wrote in message
...
Try Don's revised sub like this:


Sub makevalues()
mc = "q"
sr = 7

lr = Cells(Rows.Count, mc).End(xlUp).Row
nc = Cells(sr, Columns.Count).End(xlToLeft).Column + 1
nc = Cells(sr, mc).End(xlToLeft).Column + 1

Range(Cells(sr, mc), Cells(lr, mc)).Copy
Cells(sr, nc).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub

--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---