VBA to copy from one sheet and paste values to another

[stroffso]

Hi,
I have some code which works fine apart from the bit where it copies formulas rather than values across to the new sheet.

What am I missing here?

Sub Quotetracker()Application.ScreenUpdating = False
Sheets("Customer Quote").Range("B11").Copy _
Destination:=Sheets("Quote Tracker").Cells(Cells.Rows.Count, _
1).End(xlUp).Offset(1, 0)
Sheets("Customer Quote").Range("B12").Copy _
Destination:=Sheets("Quote Tracker").Cells(Cells.Rows.Count, _
1).End(xlUp).Offset(0, 1)
Sheets("Customer Quote").Range("B13").Copy _
Destination:=Sheets("Quote Tracker").Cells(Cells.Rows.Count, _
1).End(xlUp).Offset(0, 2)
Sheets("Customer Quote").Range("B14").Copy _
Destination:=Sheets("Quote Tracker").Cells(Cells.Rows.Count, _
1).End(xlUp).Offset(0, 3)
Sheets("Quote Entry").Range("D7").Copy _
Destination:=Sheets("Quote Tracker").Cells(Cells.Rows.Count, _
1).End(xlUp).Offset(0, 4)
Sheets("Customer Quote").Range("B10").Copy _
Destination:=Sheets("Quote Tracker").Cells(Cells.Rows.Count, _
1).End(xlUp).Offset(0, 5)
Sheets("Customer Quote").Range("D58").Copy _
Destination:=Sheets("Quote Tracker").Cells(Cells.Rows.Count, _
1).End(xlUp).Offset(0, 6)
Application.ScreenUpdating = True
End Sub

 

[MARK858]

Try...

Sub Quotetracker()
Application.ScreenUpdating = False
 Sheets("Customer Quote").Range("B11:B14").Copy
 Sheets("Quote Tracker").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Transpose:=True

 Sheets("Quote Entry").Range("D7").Copy
 Sheets("Quote Tracker").Cells(Rows.Count, 1).End(xlUp).Offset(0, 4).PasteSpecial Paste:=xlPasteValues
 
 Sheets("Customer Quote").Range("B10").Copy
 Sheets("Quote Tracker").Cells(Rows.Count, 1).End(xlUp).Offset(0, 5).PasteSpecial Paste:=xlPasteValues
 
 Sheets("Customer Quote").Range("D58").Copy
 Sheets("Quote Tracker").Cells(Rows.Count, 1).End(xlUp).Offset(0, 6).PasteSpecial Paste:=xlPasteValues

 Application.CutCopyMode = False
 Application.ScreenUpdating = True
 End Sub

 

[My Aswer Is This]

Try writing your script like this:
I did the first line you try doing the rest.

Sub Quotetracker()
'Modified 4-9-18 2:00 AM EDT
Sheets("Quote Tracker").Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Sheets("Customer Quote").Range("B11").Value
End Sub

 

[stroffso]

Worked an absolute charm, thank yu so much

Try...

Sub Quotetracker()
Application.ScreenUpdating = False
 Sheets("Customer Quote").Range("B11:B14").Copy
 Sheets("Quote Tracker").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Transpose:=True

 Sheets("Quote Entry").Range("D7").Copy
 Sheets("Quote Tracker").Cells(Rows.Count, 1).End(xlUp).Offset(0, 4).PasteSpecial Paste:=xlPasteValues
 
 Sheets("Customer Quote").Range("B10").Copy
 Sheets("Quote Tracker").Cells(Rows.Count, 1).End(xlUp).Offset(0, 5).PasteSpecial Paste:=xlPasteValues
 
 Sheets("Customer Quote").Range("D58").Copy
 Sheets("Quote Tracker").Cells(Rows.Count, 1).End(xlUp).Offset(0, 6).PasteSpecial Paste:=xlPasteValues
 
 Application.ScreenUpdating = True
 End Sub

 

[MARK858]

You're welcome but please note the edit to my previous post