Dear Ron, Further to my last posting, I solved the problem by copying from
your original post and replacing

" Rng.EntireRow.Insert"
with
"Rng.(Offset(1, 0)EntireRow.Insert"

Thank you again Ron, I am so happy with this.
RobertR