VBA Insert Row & Copy/Insert Specific Range From Row Above

[jwmi01]

Currently using this simple "insert row and fill down" macro. I'd like to limit the fill to rows A-K of the row being copied down.

Any help is appreciated, thanks!

Sub InsertCopyOfPart()

Application.ScreenUpdating = True
Dim r As Long
r = ActiveCell.Row
  
  
   With ActiveCell
      .Offset(1).EntireRow.Insert
      Cells(.Row, 1).Resize(2, 13).FillDown
            
   End With

Application.ScreenUpdating = True
End Sub

 

[JoeMo]

replace this line:

 Cells(.Row, 1).Resize(2, 13).FillDown

with this:

 Cells(.Row, 1).Resize(2, 11).FillDown

 

[jwmi01]

replace this line:

 Cells(.Row, 1).Resize(2, 13).FillDown

with this:

 Cells(.Row, 1).Resize(2, 11).FillDown

Beautiful....Thank you!

 

[JoeMo]

Beautiful....Thank you!

You are welcome - thanks for the reply.