vba to insert copy of row selected

[M4TVD]

Hello,
I want to be able to insert a new row below the one that I have selected, I have some code already that works for what I am trying to do, except I only want it to copy the data that is in cells A:M and not all of the information that is in that row.

this is what I have, it is set up in a module that has a button assigned to it:

Sub cOPYlINeabove()
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row).Select
Selection.Insert Shift:=xlUp
ActiveCell.Select
Row = 1
clms = 5
ActiveCell.Offset(Row, clms).Select

End Sub

thankyou for your help!

Matt

 

[Fluff]

How about

Sub M4TVD()
   With ActiveCell
      .Offset(1).EntireRow.Insert
      Cells(.Row, 1).Resize(2, 13).FillDown
   End With
End Sub

 

[M4TVD]

Sub M4TVD() With ActiveCell .Offset(1).EntireRow.Insert Cells(.Row, 1).Resize(2, 13).FillDown End With End Sub

yes that works, thankyou

 

[Fluff]

You're welcome & thanks for the feedback.