I'm back...things are working really good but I have a small enhancement that I would like to implement.

The following code that NoSparks provided me inserts and copies the indicated range ("A3:Z3") above an existing ActiveCell.Row.…and then the newly inserted row becomes the active row.
With Sheets("CCCCCCC")
.Activate '<~~ makes sure right sheet is active
.Rows(ActiveCell.Row).Insert Shift:=xlDown
Sheets("DATA ENTRY").Range("A3:Z3").Copy .Range("A" & ActiveCell.Row)
End With
I would like to accomplish the same thing except to have the Range("A3:Z3") inserted below the existing ActiveCell.Row.(and then have the newly inserted row becomes the ActiveCell.Row).