It just occurred to me that if you are actually copying and pasting
less than an entire row you can shift cells to the right instead of
down:

Shift:=xlShiftToRight

This will leave other rows unaffected, and your code should work with
just the one modification.