Getting error trying to delete last row

[Ivn68]

Dim x as long
X=worksheets("Sheet1").cells(rows.count, "A")
Rows(x).Entirerow.delete

trying to delete lastrow that has something in column A

 

[Jeffrey Mahoney]

Try this

Sub DelRow()
  Dim x As Range
  SET x = Worksheets("Sheet1").Cells(Rows.Count, "A")
  x.EntireRow.Delete

End Sub

 

[MARK858]

Just another syntax, try..

Dim x As Long
x = Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
Worksheets("Sheet1").Rows(x).Delete

 

[MARK858]

Try this

Hi, that will delete the last line on the sheet as you don't have the .End(xlUp)

 

[Ivn68]

Thanks everyone!

 

[Ivn68]

How do I delete the last row with something there?

 

[MARK858]

How do I delete the last row with something there?

See post #3 if you don't have formulas returning ""

 

[Ivn68]

3rd post not working
Application-defined or object-defined error

 

[MARK858]

Works fine for me with

Sub test()
Dim x As Long
x = Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
Worksheets("Sheet1").Rows(x).Delete
End Sub

Copy the code, don't retype it

 

[Ivn68]

Yeah keep getting erroe message