Copy and paste a range based on a cell value.

I have a range of data in cells k2:m2
I want to paste it into cells f7:h7
But If cell d1 =1 I want to copy and insert the range once.
If D1=2 I want to insert the range twice so it would occupy F7:h7 and F8:h8 and so on.
I need this to continue to whatever the D1 cell value equals.
I need to write this as macro so a command button will recognise D1 and copy the range and paste the range "x" times always starting at F7:h7.
I would be grateful for any assistence on this please

A VBA demonstration as a beginner starter :

PHP Code: 

Sub Demo1()
    [K2:M2].Copy [F7].Resize([D1])
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄