Delete row with date in it

[IrishJM]

Ok Guy's and Girls
I get data sucked in to excel Column A is Product ID Col B is Product No Col C is Customer Name etc

Occasionally in Column A the first row for a new Day has that Date in it seeing as this is the only data in Column A that is a Date is it possible to delete this Row? By means of VB or Macro.

Thanks

 

[VBA Noob]

Maybe

Sub Delete_Date()
Dim i As Long

    For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
        If IsDate(Cells(i, "A")) Then
            Rows(i).Delete
        End If
    Next i
        
End Sub

VBA Noob

 

[IrishJM]

VBA Noob thanks that works a treat if the sheet is called sheet1 what if it is calles something else like Daily Control.

Thanks

 

[VBA Noob]

It will run on any sheet as the sheet name not used

VBA Noob

 

[IrishJM]

thanks