You can try this Dale

Sub test()
With Cells(ActiveCell.Row, 1)
.Offset(1, 0).EntireRow.Insert
.Offset(1, 0).Resize(1, 3).Value = .Resize(1, 3).Value
End With
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Dale Fye" wrote in message ...
New to Excel VBA, but have 10 years programming in Access

I have a row pointer for my worksheet, and a command button on a form that I
want to use to insert a blank row after the currently selected row, and then
copy the data from the first three columns of the currently selected row.
How do I

--
Email address is not valid.
Please reply to newsgroup only.