Add specific cells in row next to active cell

Hi,

I need you help to solve a poblem with my macro.

I would like to copy current row next to my active cell but only specific cells using Macro. I have a existing Macro as below which copies the current row and copies into next row.

Sub Macro1()
'make new row
ActiveCell.EntireRow.Insert Shift:=xlDown
'copy the row above
ActiveCell.Offset(1, 0).EntireRow.Copy Cells(ActiveCell.Row, 1)
End Sub

But I dont want to copy entire row..Only specific cells.

I have attached a example. In the attached example, I have data in 10 rows and 10 columns. When my cursor is on row 4(activecell) and I run the Macro it creates a new row next to row 4 and copies data from row 4. But I dont want to copy entire row. I want to copy only values in column A, Column D-G from the active cell row to next row. I would like to do this whenever the macro runs.

I appreciate your help.

Thanks in advance.

Senthil