VBA delete last row help

[Dan88]

Hello everyone.

I am trying to piece meal my VBA where I need it to select all sheets in the workbook and delete the last row in each sheet.

Each sheet has the same headers but varies in row so as long as it is the last row being deleted it will work.

Any pointers would be greatly appreciated.

Thanks


Sub deletelastrow()

Dim ws As Worksheet
Dim lastRow As Integer

For Each ws In Worksheets
lastRow = Worksheets.Range("A65536").End(xlUp).Row
Worksheets.Rows(lastRow & ":" & lastRow).Delete shift:=xlUp

Next ws

End Sub

 

[rpaulson]

try

Dim ws As Worksheet
Dim lastRow As Integer

For Each ws In Worksheets
lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row
ws.Rows(lastRow & ":" & lastRow).Delete shift:=xlUp

Next ws

hth,
Ross

 

[Fluff]

Or

For Each ws In Worksheets
    ws.Range("A" & Rows.Count).End(xlUp).EntireRow.Delete
Next ws

 

[Dan88]

Thank you Rpaulson. GENIUS.

 

[Dan88]

Thanks FLUFF! you guys are awesome. this worked!

 

[Fluff]

You're welcome & thanks for the feedback