Como hacer para que en un borrado de excel quite automáticamente un userform

Estoy haciendo un programa con excel VBA, Consiste que hago un borrado

Sub Limpiar()
'
' Limpiar Macro
' Borrado de la Hoja Entera
'

'
Range("C5:E51").Select
Selection.ClearContents
Range("H5:I51").Select
Selection.ClearContents
Range("L5:O51").Select
Selection.ClearContents
Range("C55:E101").Select
Selection.ClearContents
Range("H55:I101").Select
Selection.ClearContents
Range("L55:O101").Select
Selection.ClearContents
Range("C105:E151").Select
Selection.ClearContents
Range("H105:I151").Select
Selection.ClearContents
Range("L105:O151").Select
Selection.ClearContents
Range("C155:E201").Select
Selection.ClearContents
Range("H179:I201").Select
Selection.ClearContents
Range("L179:O201").Select
Selection.ClearContents
Range("C205:E251").Select
Selection.ClearContents
Range("H205:I251").Select
Selection.ClearContents
Range("L205:O251").Select
Selection.ClearContents
Range("C255:E301").Select
Selection.ClearContents
Range("H255:I301").Select
Selection.ClearContents
Range("L255:O301").Select
Selection.ClearContents
Range("C305:E351").Select
Selection.ClearContents
Range("H305:I351").Select
Selection.ClearContents
Range("L305:O351").Select
Selection.ClearContents
Range("C355:E401").Select
Selection.ClearContents
Range("H355:I401").Select
Selection.ClearContents
Range("L355:O401").Select
Selection.ClearContents
Range("C405:E451").Select
Selection.ClearContents
Range("H405:I451").Select
Selection.ClearContents
Range("L405:O451").Select
Selection.ClearContents
Range("C455:E501").Select
Selection.ClearContents
Range("H455:I501").Select
Selection.ClearContents
Range("L455:O501").Select
Selection.ClearContents
Range("Q455:Q501").Select
Range("Q501"). Activate
Selection. ClearContents
Range("Q405:Q451").Select
Range("Q451"). Activate
Selection. ClearContents
Range("Q355:Q401").Select
Range("Q401"). Activate
Selection. ClearContents
Range("Q305:Q351").Select
Range("Q351"). Activate
Selection. ClearContents
Range("Q255:Q301").Select
Range("Q301"). Activate
Selection. ClearContents
Range("Q205:Q251").Select
Range("Q251"). Activate
Selection. ClearContents
Range("Q155:Q201").Select
Range("Q201"). Activate
Selection. ClearContents
Range("Q105:Q151").Select
Range("Q151"). Activate
Selection. ClearContents
Range("Q55:Q101").Select
Range("Q101"). Activate
Selection. ClearContents
Range("Q5:Q51").Select
Range("Q51"). Activate
Selection. ClearContents
End Sub

Por ejemplo al principio cuando pasa por aquí Range("H5:I51").Select y la selecciona para borrar me sale una Userform automatico de busqueda que se quita al dar enter y sigue pero dos casillas mas abajo otra vez, y asi hasta que acaba la macro.
Yo lo que quiero es que de automáticamente de a Ok sin necesidad de darle al ratón o darle enter al teclado, y no deseo quitarlo ya que es una función del programa que cuando seleccionas la casilla se habré un Userform de Búsqueda.