Как применить этот макрос ко всем страницам в файле excel

У меня есть код, чтобы сделать определенную модификацию некоторых ячеек на странице. Я хотел бы применить этот код одним щелчком мыши ко всем страницам в файле excel. Я использую VBA и новичок в этом. Вот мой код :

Sub H()
Dim B As Range, H As Range, I As Range
For Each B In Range("B7:B49").Cells
If IsNumeric(B) And B <> "" Then
Cells(B.Row, 9) = Trim(Cells(B.Row + 1, 8)) & Trim(Cells(B.Row + 2, 8))
Cells(B.Row + 1, 8) = ""
Cells(B.Row + 2, 8) = ""
If B.Row > 50 Then Exit For
End If
Next B
End Sub


Я хотел бы применить приведенный выше макрос ко всем страницам на листе excel. Как я могу это сделать?