Deleteing Rows in excelSolved/Closed

Question

Hello, 


I work with a lot of files every day and the number of data in column A is different from the rest of the column.   The number of data are usually less in column A then the some of the columns.   Is there a way to run the macro to delete all rows after the last data of column A?   Lets say that the last data in column A is on A141, then I want the macro to delete all rows after A141.   The number of data varies in column A, therefore I can not use a set range, but need to go off the last data in column A. 

Need your help.   Thanks!

data_encoder · Answer

I have a macro that deletes empty columns, and you can designate column A. If you have headers that are blank, I suggest to add some header info just so it doesnt get deleted, eg., if column A  starts at row 3 with header info, make sure row 1 and 2 has some info or this gets deleted. 

Give this a shot: 


Sub DeleteEmptyColumns() 

Dim col As String * 1 

col = InputBox(Prompt:="Enter Column: eg. A (for the 1st column)", _ 
          Title:="Enter Column Letter To Delete Blanks", Default:="A") 
         
If col = "Enter Column" Or _ 
   col = vbNullString Then 
         Exit Sub 
Else 
    'Deletes all rows with empty column col 
     Columns(col & ":" & col).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
End If 

End Sub

Cindy · Answer

Awesome!!!   Thanks!

Deleteing Rows in excel

2 replies

Subscribe To Our Newsletter!