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

 

[MARK858]

Post the code as you have it (copy and paste it, don't type it) in the thread

 

[Ivn68]

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

 

[MARK858]

You obviously retyped it and did not copy it from the post as you have End(x1up) rather than xlUp.
It should be a lower case L not a number one

 

[Ivn68]

Omg thought that was a 1 the whole time! Sorry thanks for all your help

 

[MARK858]

You're welcome