如何将此Excel VBA代码修复为ingore空单元格

Sub ProcessData()
    Dim rng As Range
    Dim cell As Range
    
    Set rng = Range("A1:A10") ' 要处理的单元格范围
    
    For Each cell In rng
        If Not IsEmpty(cell) Then
            ' 在这里编写需要执行的代码
            ' 例如：MsgBox cell.Value
        End If
    Next cell
End Sub

Sub ProcessData()
    Dim rng As Range
    Dim cell As Range
    
    Set rng = Range("A1:A10") ' 要处理的单元格范围
    
    For Each cell In rng
        On Error Resume Next
        ' 在这里编写需要执行的代码
        ' 例如：MsgBox cell.Value
        On Error GoTo 0
    Next cell
End Sub