Simple Macro to Duplicate Rows

[spcalan]

I can't find exactly what I need..

I need a macro that will create full copies or rows..

It would be nice for one of the VBA variables to determine how many rows to copy/create.

Rows = 1 ( created 1 row of each entry )
Rows = 2 (created 2 rows of each entry )

 

[Zenwood]

Try

Sub CopyLine()


Rows(ActiveCell.Row).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste

End Sub