Thanks nice, but I have a questions. Can you change the code to start at cell
D34 and also copy the format in row 33?

"reklamo" wrote:

Try following macro:

Sub InsertRow()
ActualRow = Selection.Row
Cells(ActualRow + 1, 1).EntireRow.Insert
Range(Cells(ActualRow, 1), Cells(ActualRow, 3)).Copy _
Destination:=Cells(ActualRow + 1, 1)
End Sub


Regards
reklamo

"Dale Fye" wrote:

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.