Paste Special Values

[ryland00]

Is there any way to make this vba code paste special ?

Sub MoveCols()
Dim lr As Long

Application.ScreenUpdating = False
With Sheets("Insert Data here")


lr = .Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row


.Range(.Cells(2, "A"), .Cells(lr, "A")).Copy Sheets("Bill hold Template").Cells(2, "A")
.Range(.Cells(2, "B"), .Cells(lr, "B")).Copy Sheets("Bill hold Template").Cells(2, "B")
.Range(.Cells(2, "D"), .Cells(lr, "D")).Copy Sheets("Bill hold Template").Cells(2, "C")
.Range(.Cells(2, "AK"), .Cells(lr, "AK")).Copy Sheets("Bill hold Template").Cells(2, "D")
.Range(.Cells(2, "AM"), .Cells(lr, "AM")).Copy Sheets("Bill hold Template").Cells(2, "E")
.Range(.Cells(2, "AN"), .Cells(lr, "AN")).Copy Sheets("Bill hold Template").Cells(2, "F")


End With
[/CODE]

 

[Fluff]

Like

.Range(.Cells(2, "A"), .Cells(lr, "A")).Copy 
Sheets("Bill hold Template").Cells(2, "A").Pastespecial xlpastevalues

Or

Sheets("Bill hold Template").Cells(2, "A").resize(lr-1).value=.Range(.Cells(2, "A"), .Cells(lr, "A")).value