Clearing Lines

[howard]

I have a worksheet containing amongst other lines that are imported which I want cleared using VBA

----------

==========

I have attached a sample file. It would be appreciated if you would assist

Howard

Lines.xls
	A	B	C	D	E	F
1
2
3	TOTALNETSALES
4	TOTALCOSTOFSALES
5	TOTALOVERALLOWANCE
6		----------	----------	----------	----------
7	TOTALFRONTENDG/PROFIT
8	TOTALBACKENDG/PROFIT
9	TOTALG/PROFITADJUSTMENT
10		----------	----------	----------	----------
11	TOTALADJ'DGROSSPROFIT
12	EXPENSES-VARIABLES
13	EXPENSES-PERSONNEL
14	EXPENSES-SEMI/FIXED
15	EXPENSES-TOTAL
16		----------	----------	----------	----------
17	TOTALNET(PROFIT)/LOSS
18		==========	==========	==========	==========
19
20
21
22
23
Sheet1

 

[ADAMC]

H:

Sub DeleteRowOnCell()
On Error Resume Next
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
ActiveSheet.UsedRange

End Sub

deletes rows if completely blank.

 

[ADAMC]

Sorry misunderstood the question:

Sub Deletenone()
Dim Last, i As Long

Last = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = Last To 1 Step -1
If (Cells(i, "A").Value) = "" Then
Cells(i, "A").EntireRow.Delete
End If

Next i
Application.ScreenUpdating = False

End Sub

this will delete a row if column A has an empty cell ("")

 

[howard]

Deleting Rows

Hi ADAMC

Thanks for the help. Macro works perfectly.

I would also like VBA code the will clear the lines in columns B:E per my sample uploaded in my earlier post


Howard