oops,sorry all, heres the code!!!!!

Sub CopyData()
Dim wsFedex As Worksheet
Dim wsquote As Worksheet

Set wsFedex = Worksheets("FEDEX calculator")
Set wsquote = Worksheets("quote")

With wsFedex

.Range("A19:E19").Copy
wsquote.Cells(21, "A").PasteSpecial xlPasteValues

.Range("H19").Copy
wsquote.Cells(21, "F").PasteSpecial xlPasteValues

.Range("J19").Copy
wsquote.Cells(21, "G").PasteSpecial xlPasteValues

.Range("D13").Value = .Range("D13").Value + 1
Application.CutCopyMode = False
wsquote.Rows(21).Insert
End With

End Su

--
Message posted from http://www.ExcelForum.com