作業日日付の行を削除するVBA

Sub 同時刻の行削除()
    Dim td As Date
    Dim retMsg As Integer
    Dim cntLine As Integer
    Dim lRow As Long
    Dim i As Long
                
    
    '現在日付(YYYY/MM/DD)
    td = Date
    
    '日付検索
    cntLine = WorksheetFunction.CountIf(Range("A1048576:GG1"), td)
    
    '日付を含む行が1件以上あった場合
    If cntLine > 0 Then
        retMsg = MsgBox(td & "(行数:" & cntLine & ")" & vbNewLine & "既に同日が存在します。" & vbNewLine & "削除してもよろしいでしょうか？", vbYesNoCancel + vbExclamation)
            'ダイアログで「はい」が押下された場合
            If retMsg = 6 Then
                lRow = Cells(Rows.Count, 1).End(xlUp).Row
                
                Application.ScreenUpdating = False
                '行削除
                For i = lRow To 1 Step -1
                    If Cells(i, 1).Value = td Then
                        Range(i & ":" & i).Delete
                    End If
                Next i
                Application.ScreenUpdating = True
                MsgBox "削除しました"
            End If
    Else
        MsgBox "同時刻の行はありませんでした。"
    End If
End Sub