エクセルマクロについてご教示ください

データ入力の関係から、マクロの実行によりセルB５に入力した数字の数だけD３０にあるデータを左にコピペ（値のみ貼り付け）するようなマクロは可能でしょうか。
例えば、セルB5に７と入力すれば、D30のデータをD23に、また５と入力すればD25にコピペするといったマクロです。
どなたか、よろしくお願いいたします。

質問者からの補足コメント

• 

  すいません
  左へのコピペで列移動が上への行移動の説明に間違っていました。申し訳ありません。
  例えばセルB5に７と入力の場合、Q30のデータをJ３０に、またB5に５の入力の場合はL３０に7と
  列移動のマクロです。
  申し訳ありません、よろしくお願いいたします。

  No.2の回答に寄せられた補足コメントです。 補足日時：2018/04/12 10:20

No.3 ベストアンサー 回答者： ママチャリ 回答日時： 2018/04/12 10:44

いつの間にか、コピー元のセルがD30からQ30に替わっているようですが・・・

Sub sample()
Dim locCol As Long
locCol = Range("B5").Value * -1
Range("Q30").Offset(0, locCol).Value = Range("Q30").Value
End Sub

それから、質問内容は、ちゃんと確認してから投稿しましょうね！！
誤記をした私が言える立場ではないのですが・・・お互い頑張りましょう！！

この回答へのお礼

早速のご教示ありがとうございました。
また、質問もキチンと確認しないままの投稿でご迷惑をおかけしました。
本当に申し訳ありません。

御教示のマクロ試してみましたら希望通りにマクロが動きました。
早速活用させていただきます。

ありがとうございました。

お礼日時：2018/04/12 10:58

No.2 回答者： ママチャリ 回答日時： 2018/04/12 09:36

ゴメンナサイ。

一部の記述に誤りがありましたので訂正させてください。

誤）Range("B5").valure
正）Range("B5").Value

No.1 回答者： ママチャリ 回答日時： 2018/04/12 09:34

左にコピペ？D30→D23なら上にコピペですよね。

こんな感じでしょうか。

Sub sample()
Dim locRow As Long
locRow = Range("B5").valure * -1
Range("D30").Offset(locRow).Value = Range("D30").Value
End Sub