Clear Last row with first blank Cell, keeping the formulas

[gotido]

Hello, i have a table where i´m going to put some sales.

A is date; B is Produt and C is value.

I´ve created a button for some specified products when when i click then the value apears in the row.

I want to create another button the delete the last inserted row.

Help appreciated.

This is the code of one of the buttons that i sell

Sub Button3_Click()

Dim emptycolumn As Long


'Make Sheet1 active
 Sheet2.Activate


'Determine emptycolumn
 emptycolumn = WorksheetFunction.CountA(Range("a:a")) + 1


'Transfer information
 Cells(emptycolumn, 1).Value = Now()
 Cells(emptycolumn, 3).Value = "FLAP JACK OAT & CHOC"
 Cells(emptycolumn, 4).Value = "2,95€"


 Sheet2.Activate


End Sub

 

[My Aswer Is This]

Your subject Title says:

Clear Last row with first blank Cell, keeping the formulas

But you question says delete last row.​

Try this:

Sub Delete_Me()
'Modified  1/26/2019  3:31:07 AM  EST
Dim Lastrow As Long
Sheet2.Activate
Lastrow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row
Rows(Lastrow).Delete
End Sub

 

[gotido]

Its my fault, my bad english.

I´d like to clear the last row without losing the formulas in it. only the values..

 

[MARK858]

You can't clear the cells and have a formula in them. If you want them to display an empty string based on a condition then you need to amend the formula.

If you mean you want to clear the cells that don't have formulas then you could try...

 Dim Lastrow As Long

Lastrow = Sheet2.Cells(Rows.count, "A").End(xlUp).Row
On Error Resume Next
Sheet2.Rows(Lastrow).SpecialCells(2, 23).ClearContents
On Error Goto 0

Otherwise please try and explain again..