metricsinstitute wrote:

I am looking a way for copying a range to an active cell such that all
the data right to the active cell remain unaffected and move to the
right accordingly to leave space to the new range

Shift first, then copy:

ActiveCell.Insert Shift:=xlShiftToRight
Cells(1, 1).Copy Destination:=ActiveCell

(Replace Cells(1, 1) with the range actually being copied.)

--
Be not too eager to deal out death in the name of justice,
fearing for your own safety. Even the wise cannot see all ends.