Sub DelRow()
'Before runing this code, make sure
'1. Delete all the merged ranges
'2. The first row is your title row
'3. Column G include the exactly value 0.01 which marks the row you want to delete
Dim nr As Long
Dim ws As Worksheet
Set ws = Worksheets(1) 'Make sure the first sheet is the original sheet
ws.Select
nr = ws.UsedRange.Rows.Count

Dim i As Long
For i = nr To 2 Step -1
If Cells(i, 7) = 0.01 Then
ws.Rows(i).Delete
End If
Next i
End Sub

Sub aa()
Dim i As Integer
For i = 2 To Range("A65536").End(xlUp).Row
    If Cells(i, 7) = 0.01 Then
        Cells(i, 7).EntireRow.Delete
        i = i - 1
    End If
Next
End Sub