Macro with destination paste values only

[mbee14]

How do I change this code to paste only values?

Workbooks(Format(Now - 1, "yymmdd") & "Prod Report .xlsm").Activate

Sheets("Night Shift Production").Activate

Sheets("Night Shift Production").Range("H51:H53").Copy

Workbooks("Line Info.xlsm").Activate

ActiveSheet.Paste Destination:=Worksheets("L1-10").Range("I72")

 

[Fluff]

How about

Workbooks(Format(Now - 1, "yymmdd") & "Prod Report .xlsm").Activate

Sheets("Night Shift Production").Range("H51:H53").Copy

Workbooks("Line Info.xlsm").Activate

Worksheets("L1-10").Range("I72").PasteSpecial xlPasteValues

 

[mbee14]

How about

Workbooks(Format(Now - 1, "yymmdd") & "Prod Report .xlsm").Activate

Sheets("Night Shift Production").Range("H51:H53").Copy

Workbooks("Line Info.xlsm").Activate

Worksheets("L1-10").Range("I72").PasteSpecial xlPasteValues

It gave me a run-time error 1004

 

[mbee14]

I did some more googling and this ended up working for me

Sheets("Day Shift Production").Activate

Set r1 = Range("B6", "C8")

Workbooks("Line Info.xlsm").Activate

Set r2 = Range("B6")

r2.Value = r1.Value

 

[Fluff]

Glad you sorted it & thanks for the feedback