Delete Rows

[VbaHell]

Hello One and All

I am using Excel 2003

I have Data in column A to E
I require a VBA macro that will find the last Row in column A that has no data and then delete any data in all the other columns from the blank row in column A

 

[Joe4]

I require a VBA macro that will find the last Row in column A that has no data

Do you actually mean the first row in column A it comes across that has no data?

 

[Legacy 185509]

Hello One and All

I am using Excel 2003

I have Data in column A to E
I require a VBA macro that will find the last Row in column A that has no data and then delete any data in all the other columns from the blank row in column A

not the best solution
this is will find you the last cell that contain data

=MATCH(REPT("z",255),A:A)

put this code in anywhere else but column A

 

[Joe4]

Perhaps this is what you are looking for.

The following code will start at the very bottom of your sheet and go up column A until it finds the last row that has an entry for column A. It will then select the row just below that, and clear the contents of the entire row.

Sub MyMacro()
  Rows(Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row).EntireRow.ClearContents
End Sub

 

[VoG]

Sub ClearRows()
Columns("A").SpecialCells(xlCellTypelanks).EntireRow.Delete
End Sub

 

[VbaHell]

When I come to the first blank column in column A I would like to then delete that Row and also any rows below that has any data in any of the other rows but not any data in the rows about the first blank in column A

 

[Joe4]

It sounds like this might do what you want:

Sub MyMacro()
 
    Dim myFirstRow As Long
    Dim myLastRow As Long
    
'   First first blank row in column A (assuming not at very top)
    myFirstBlankRow = Range("A1").End(xlDown).Offset(1, 0).Row
    
'   First last row on sheet
    myLastRow = Range("A1").SpecialCells(xlLastCell).Row
    
'   Delete all rows start with first blank cell in column A to end of sheet
    Rows(myFirstBlankRow & ":" & myLastRow).EntireRow.Delete
    
End Sub

 

[VbaHell]

Hi Sorry I have not come back to you sooner I have been in Iceland on business.
This macro you provided is perfect, thank you so much