or
regards, J![]()
Sub Button1_Click() Application.ScreenUpdating = 0 Range("a5").Copy Range("c5").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = 0 Application.ScreenUpdating = 1 ActiveWorkbook.Save End Sub
Bookmarks