Shorten code Please

[Andries]

Hi

I recorded this code....how do I shorten it?

Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1:D1").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save[code]

 

[niceguy_jay]

Cells.Select
    Selection.Copy
    Selection.PasteSpecial
    Range("A1:D1").Select
    ActiveWorkbook.Save

 

[mikerickson]

With ActiveSheet.UsedRange
    .Value = .Value
End With
ActiveWorkbook.Save

 

[Andries]

Thanx

 

[Jameo]

What range are you copying?

Range("A1":"A2").Copy Destination:=Range("D1")
ActiveWorkbook.Save

The bit in red is the range you are copying, the bit in blue is the destination for the first cell of you paste. Change as applicable

 

[Andries]

Hi Jameo

Ok it will work but I need values and not functions