VBA Rangeのコピー

解決したいこと

下記の左の表があります。備考＆雑誌のレコードに空白のRange（黄色）があります。
右の表の様にRange値を空のRangeに貼り付けたいです。
便利なコードを教えて下さい。