How do you use a macro to add an extra line at bottom of excel table

[gillcork22]

Hello!

I am new. I have been teaching myself excel, just starting to use macros. I though I could get the macro to record my actions and then it would just repeat back what i had done (that i wouldnt have to write codes/formulas for everything?) I need to practice more...but for now, could i get help with this...

I'm giving my boss a hand. She needs to keep track of the dates each of her employees does specific training courses. I've set up the attached sheet. Problem is my boss would not be able to adapt any of this or *add rows* when she requires them, so i was hoping to make a button that could do that for her.

See attached. How can I create a macro that will add a new row and bring the formulas with it but leave column A, C, and D blank?

[mehmetcik]

Not enough Detail in your request.

I am guessing that we are looking at sheet "Record of Training"

I then have to assume that you are adding a row at the bottom

When I enter a name in column A then Excel automatically enters the formula in columns B and E, because this is a table.

As I see it all you need to do is to make sure that if any cell is selected after the last entry then the user is taken to column A ready to insert a new name.

[mehmetcik]

Not enough Detail in your request.

I am guessing that we are looking at sheet "Record of Training"

I then have to assume that you are adding a row at the bottom

When I enter a name in column A then Excel automatically enters the formula in columns B and E, because this is a table.

As I see it all you need to do is to make sure that if any cell is selected after the last entry then the user is taken to column A ready to insert a new name.

Right Click on the sheet name at the bottom of excel and select view code

A new window will open, this is the sheet specific macro module

paste this code in the module and close it.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

' Find the last used row in column A
LR = Cells(Rows.Count, 1).End(xlUp).Row

'If Selected row is last row and name not entered then select column A
If Target.Row = LR And Application.CountBlank(Range(Cells(LR, 1), Cells(LR, 5))) = 5 Then Cells(LR, 1).Select

'If Row is after last row the select column A in the first empty row
If Target.Row > LR Then Cells(LR + 1, 1).Select

End Sub

[gillcork22]

Thank you so much!!

I will be more specific in any future questions! Thanks for your help. That probably was a piece of cake for you but for me its tough to figure that stuff out so thank you very much