clear cells contain DATE in column and blank range for the same date

[Mussa]

Hi guys
I need macro to clear any date in column A and but should contain blank cells in range B: H for the same date
the data could be 10000 rows , some data filling whole range and some data are not filled for whole range .

cell.xlsm
	A	B	C	D	E	F	G	H
1	DATE	CODE	BRAND	BATCH	DEL N	QTY	PRICE	AMOUNT
2	26/04/2023	CCS-001	CTR-001	BTR-001	CDF-00	200	10	2000
3	26/04/2023	CCS-002	CTR-002	BTR-002	CDF-01	200	10	2000
4	26/04/2023
5	26/04/2023
sh

the outcome should be

cell.xlsm
	A	B	C	D	E	F	G	H
1	DATE	CODE	BRAND	BATCH	DEL N	QTY	PRICE	AMOUNT
2	26/04/2023	CCS-001	CTR-001	BTR-001	CDF-00	200	10	2000
3	26/04/2023	CCS-002	CTR-002	BTR-002	CDF-01	200	10	2000
4
5
sh

 

[Joe4]

Try this:

Sub MyDeleteRows()

    Dim lr As Long
    Dim r As Long
    Dim rng As Range
    
    Application.ScreenUpdating = False
    
'   Find last row in column A with data
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Loop through all rows backwards
    For r = lr To 2 Step -1
'       Find range to check (columns B to H)
        Set rng = Range("B" & r & ":H" & r)
'       See if no values in range, and delete
        If Application.WorksheetFunction.CountA(rng) = 0 Then Rows(r).Delete
    Next r
        
    Application.ScreenUpdating = True
    
End Sub

 

[Mussa]

thanks very much

 

[Joe4]

You are welcome!