Edit code to cell values and not the contents (which are formulas).

[Tanner_2004]

Sub Test()Sheets("A").Range("D93:M93").Copy Sheets("B").Range("D" & Rows.Count).End(xlUp).Offset(1, 0)End SubThe above worked great, but it pasted the formulas within the cell instead of the values.</PRE>

 

[JoeMo]

Try:

Sub Test()
Sheets("A").Range("D93:M93").Copy
Sheets("B").Range("D" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
End Sub

 

[Tanner_2004]

Thank you...worked like a charm! I appreaciate you help.

 

[Tanner_2004]

May I ask how to center, change the font?
Say center and Arial 10

Thank you again!

 

[JoeMo]

May I ask how to center, change the font?
Say center and Arial 10

Thank you again!

You are welcome. This is modified to produce the formatting you specified:

Sub Test()
Sheets("A").Range("D93:M93").Copy
Sheets("B").Range("D" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
With Selection
    .Font.Name = "Arial"
    .Font.Size = 10
    .HorizontalAlignment = xlCenter
End With
End Sub

 

[Tanner_2004]

Ahh...now I see the logic. I own all of the Mr Excel DVDs, Bill's Que VBA Book, VBA for Dummies and I am now studying Chandoos live lessons. Yet, I don't grasp many of the basics. I am hoping this all comes together for me soon. I also look forward to helping others with their code. Thank you again. I know many Joe's from where I am orginally from

 

[JoeMo]

Ahh...now I see the logic. I own all of the Mr Excel DVDs, Bill's Que VBA Book, VBA for Dummies and I am now studying Chandoos live lessons. Yet, I don't grasp many of the basics. I am hoping this all comes together for me soon. I also look forward to helping others with their code. Thank you again. I know many Joe's from where I am orginally from

You are welcome. Stay the course, it takes time, and with the depth of VBA it's a virtual endless journey - there's always more to learn.

 

[Tanner_2004]

Thank you for the words of encouragement!