I'm a new Excel user. I'm trying to insert a row and copy a cell to the cell
directly below it. This happens at various locations through the sheet so I
need it to Paste directly below labeled cell.

CALC is the labeled Column and INROWB1 is the labeled Row

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("CALC INROWB1").Select
Selection.Copy
Range("CALC INROWB1+1").Select
ActiveSheet.Paste

There has obvously got to be an better way than this... any ideas.
thanks.