VBA to copy certain column from active row, insert new row and paste

[MAP]

I am a newbie to VBA using Excel 2010. I want Excel to (1) copy cells B:H of the active row, (2) insert one row below the active row, and (3) paste the values of the recently copied cells into the new blank row.

So far, the only knowledge I have gathered allows me to simply copy the entire active row and paste that below using...

ActiveCell.EntireRow.Select
Selection.Copy
Selection.Insert shift:=x1down

I will appreciate being taught how to only copy certain cells of active row to paste below. Thank you.

 

[bebo021999]

Sub test()
With ActiveCell
Range("B" & .Row & ":H" & .Row).Copy
Range("B" & .Row & ":H" & .Row).Insert shift:=xlDown
End With
Application.CutCopyMode = False
End Sub

 

[Fluff]

Another option

Sub MAP()
With ActiveCell
   .Offset(1).EntireRow.Insert
   Range("B" & .Row).Resize(2, 7).FillDown
End With
End Sub

 

[MAP]

Bebo021999, I thank you for your help. I tried your code and it worked. However it did not work for me as intended. I wanted to simply have Excel insert one row below the active cell and then copy the contents in column B:H of the active cell into the newly inserted row. With your code, Excel did not insert an entire row, but it only inserted cells in column B:H below the active cell and then it copied the active cell row contents. This code left the contents in column A unmoved.

I also tried the code provided by Fluff. This did work as intended.

I appreciate everyone's help and tutoring.

 

[Fluff]

Glad we could help & thanks for the feedback.