VBA that writes text into a cell from another sheet

[Peakey123]

Hi guys,

I need a VBA code that attached to a button that when clicked in a sheet called 'Summary' it writes 'NDA' in the next available cell in column P of a table in sheet 'NFT'

 

[Special-K99]

Sub kev1()
lastrow = Worksheets("NFT").Cells(Rows.Count, "P").End(xlUp).Row
Debug.Print lastrow
Cells(lastrow, 16) = "NDA"
End Sub

 

[mumps]

Assign this macro to your button:

Sub AddNDA()
    Sheets("NFT").Cells(Rows.Count, "P").End(xlUp).Offset(1, 0) = "NDA"
End Sub

 

[Peakey123]

thanks for your help guys

 

[mumps]

Glad to help.