Thank you, I will rename the workbook and try this code. I appreciate all the
help I"ve been getting and am always looking for opportunities to learn.
--
dhunter43
The Performance Advantage, LLC


"Les Stout" wrote:

Hi dhunter43,

just your code reduced slightly:

Sub test()
'
Dim lastRow As Long
lastRow = Sheets("OperationalRates"). _
Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets("Formulas").Activate
Sheets("formulas").Rows(2).Copy
Sheets("OperationalRates").Rows(lastRow & ":" & lastRow).PasteSpecial
Paste _
:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False,
Transpose:=False
Sheets("InputForm").Range("C2:C10").ClearContents
End Sub


Best regards,

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***