I have an excel document that contains 3 sheets. The first Sheet supplies me
with the data to automate the third sheet. Based on what is on the 1st sheet
and if it is a certain code I want to copy the row on the third sheet that
corresponds to that data and copy it to the next row on the third sheet. For
example the first sheet tells me that the code is 01 and based on formulas it
puts the data on the third sheet. But if the code is 01 I want to duplicate
that row on the third sheet and copy it down to the next row. Any ideas. I
tired to do the following but it keeps duplicating the row on the first
sheet.

if range("a5")=25 then
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1).entirerow.Insert
Application.CutCopyMode = False

Thanks Don for that answer it is just not doing what I need it to do.