Delete Rows with range of empty cells

[ssgmiami]

I have a large spreadsheet comprised of a variable number of rows. All rows have data in Columns 1 thru 3. Columns 4 thru n should contain data, but some do not. I need to delete any row that is empty from column 4 thru n. The number of columns can be determined from the header in row 1.

Any help is greatly appreciated.

SSGMiami

 

[Domenic]

Try...

<font face=Calibri><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN><br><br><SPAN style="color:#00007F">Sub</SPAN> test()<br><br>    <SPAN style="color:#00007F">Dim</SPAN> LastRow <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>    <SPAN style="color:#00007F">Dim</SPAN> LastColumn <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>    <br>    Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN><br>    <br>    LastRow = Cells(Rows.Count, "A").End(xlUp).Row<br>    LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column<br>    <br>    <SPAN style="color:#00007F">For</SPAN> i = LastRow <SPAN style="color:#00007F">To</SPAN> 2 <SPAN style="color:#00007F">Step</SPAN> -1<br>        <SPAN style="color:#00007F">If</SPAN> Application.CountA(Range(Cells(i, "D"), Cells(i, LastColumn))) = 0 <SPAN style="color:#00007F">Then</SPAN><br>            Rows(i).Delete<br>        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br>    <SPAN style="color:#00007F">Next</SPAN> i<br>    <br>    Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN><br>    <br>    MsgBox "Completed...", vbInformation<br>    <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[ssgmiami]

Dominic,

I won't be able to try this on live data until I am back at work on Monday, but it looks like it will work for what I need. I was attempting a very similar solution, but just couldn't get the syntax right with the CountA function. I wasn't using the Application. syntax as in your statement

If Application.CountA(Range(Cells(i, "D"), Cells(i, LastColumn))) = 0

I think you've got it right! I will let you know.

Thanks,
John

 

[ssgmiami]

Dominic,

It worked perfectly! Thanks so much for the assistance.

John