VBA delete last row help

Dan88

Active Member
Joined
Feb 14, 2008
Messages
255
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

Well-known Member
Joined
Oct 4, 2007
Messages
1,067
try

Code:
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

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
30,523
Office Version
365
Platform
Windows
Or
Code:
For Each ws In Worksheets
    ws.Range("A" & Rows.Count).End(xlUp).EntireRow.Delete
Next ws
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
30,523
Office Version
365
Platform
Windows
You're welcome & thanks for the feedback
 

Forum statistics

Threads
1,078,437
Messages
5,340,271
Members
399,361
Latest member
Linford

Some videos you may like

This Week's Hot Topics

  • Problem with Radio Button's format control
    I am creating an employee evaluation template (a sample is below) Column A is the category Column B, C D, E and F will be ratings (unacceptable...
  • Last Display on userform to a Listbox
    [CODE=vba] lstdisplay.ColumnCount = 15 lstdisplay.RowSource = "A1:O600000" [/CODE] So when i do this it Displays everything on the sheet i am...
  • Rename and move files to a new location
    Dear all, I have an excel file with the following information. The actual file name is at column A but i want to rename it using the following...
  • Help with True/False Formula
    Hello! Am stumped how to fix this formula, in which my result returns 'True', but it should return False. =IF(AG2=True...
  • Clear extra characters from a provided range of cells
    Dear All, I have following code which gives me desired output to remove extra characters from a provided range. But it takes too much time when...
  • Help with Current and highest streaks
    Hi there, I've just joined the forum and this is my first post. I've already spent quite a bit of time searching the net and this forum for a...
Top