Insert Row when cell is selected

[CassieL]

Hi everyone,

I am new to macro and need help from you.
I have tried different code but it doesn't work.

Example:
When I click on any cell, I like to have a row insert below the cell that selected and and copy from the row.

Please help.

Thanks!

 

[John_w]

Try this code in the worksheet module of the sheet in question - see http://www.contextures.com/xlvba01.html#Worksheet for instructions.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
        Target.EntireRow.Copy
        Target.Offset(1).EntireRow.Insert Shift:=xlDown
        Application.CutCopyMode = False
    End If
End Sub