How to delete rows using some criteria and writing a macro ?

Hi Aditya,

please find attached my solution using VBA. The macro text is:

Sub ConditionallyDeleteRows()

    Dim vaData As Variant
    Dim rData As Range
    Dim r As Long, c As Integer
    Dim iFirstDataRow As Integer
    Dim bDeleteRow As Boolean
   
    Set rData = Range(ActiveSheet.ListObjects(1).Name)
    vaData = rData
   
    iFirstDataRow = rData.Row
   
    For r = UBound(vaData, 1) To LBound(vaData, 1) Step -1
        bDeleteRow = False
        If IsDate(vaData(r, 1)) Then
            For c = 2 To UBound(vaData, 2)
                If Len(Trim(vaData(r, c))) Then
                    bDeleteRow = False
                    Exit For
                Else
                    bDeleteRow = True
                End If
            Next
           
            If bDeleteRow Then
                Rows(r + iFirstDataRow - 1).Delete
            End If
           
        End If
    Next
       
End Sub

I have tested it on a smaller set of data. Running it on your entire dataset will take a while.

Just to mention, that you can also use Power Query to achieve a similar solution.

Yury