Logic is the bais of programming.

To avoid error messages:

Sub M_snb_001()
   For Each it In Range("A1:F13")
      If Intersect(it, Range("B111:B25000")) Is Nothing Then
         If IsEmpty(b_01) Then Set b_01 = it
         Set b_01 = Application.Union(b_01, it)
      End If
   Next
   
   if not isempty(b_01) then b_01.ClearContents
End Sub