I need to enter a 1 when a button is clicked

[dpaton05]

I have a table and as new rows get added, I need some vba code to enter a 1 into the column AB on the new row. Can someone help me with the syntax please? The table is located on a sheet called "home" and is called tblCosting. There are things below the table, so you can't use the xlup method of finding the last row.

Thanks,
Dave

 

[dpaton05]

The xlup method of finding the last row won't work as there are things under the table.

 

[dpaton05]

I meant that from the code you provided me with won't work:

Dim lr As Long


  lr = Worksheets("home").ListObjects("tblCosting").Range.Cells(Rows.Count, 1).End(xlUp).Row

The table begins in A5 and there are things above and below it, so I can't use the xlup method.
This is the code I am trying to work with now.

Private Sub cmdEnterActivities_Click()
Worksheets("home").Unprotect Password:="costings"

Dim sht As Worksheet
Dim lr As Long

Set sht = Worksheets("Home")

'Find last row using table range
  'lr = sht.ListObjects("tblCosting").Range.Rows.Count
'lr = sht.Range("A5").CurrentRegion.Rows.Count
    Set lr = Worksheets("home").ListObjects("tblCosting").Range.Cells(5, 1).End(xlDown).Row
 
    Worksheets("home").Cells(lr, 29) = txtActivities.Value
'Worksheets("home").Protect Password:="costings"

End Sub

I was thinking the xldown method but I am not sure of the syntax.
I thought I should use column A for the xldown as it is the date and will always be used.

The activities figure needs to be put in column AC of the row being entered. Could you help please?

I was also wondering if there would be a way to enter the activities figure to any row?

Thanks,