Перенос части кода Excel на другую строку - VB

Формулировка задачи:

Вопрос достаточно простой, да и в выполнении скорее всего легкий, но я никак не могу додумать. Прошу у вас помощи. Есть нужда переноса части кода на другую строку, чтобы получилось:

ActiveSheet.Range( _ "F23:H34, J23:L34, N23:P34, R23:T34, V23:X34, Z23:AB34, AD23:AF34, AL23:AN34, AP23:AR34, AT23:AV34, AX23:AZ34, F41:H48, J41:L48, N41:P48, R41:T48, V41:X48, Z41:AB48, AD41:AF48, AL41:AN48, AP41:AR48, AT41:AV48, AX41:AZ48, F51:H61" _ ).Select

При переносе с помощью " _", возникает ошибка. Подскажите, как я могу это реализовать?

Sub Clear25Days()
Sheets(Array("1-й день", "2-й день")).Select
 
Sheets("1-й день").Activate
ActiveSheet.Range( _
    "F23:H34, J23:L34, N23:P34, R23:T34, V23:X34, Z23:AB34, AD23:AF34, AL23:AN34, AP23:AR34, AT23:AV34, AX23:AZ34, F41:H48, J41:L48, N41:P48, R41:T48, V41:X48, Z41:AB48, AD41:AF48, AL41:AN48, AP41:AR48, AT41:AV48, AX41:AZ48, F51:H61" _
        ).Select
End Sub

Решение задачи: «Перенос части кода Excel на другую строку»

textual
                            Листинг программы 1
                        

                            Sub Clear25Days()
    Sheets("1-й день").Range( _
                "F23:H34, J23:L34, N23:P34, R23:T34," + _
                "V23:X34, Z23:AB34, AD23:AF34, AL23:AN34," + _
                "AP23:AR34, AT23:AV34, AX23:AZ34, F41:H48," + _
                "J41:L48, N41:P48, R41:T48, V41:X48, Z41:AB48," + _
                "AD41:AF48, AL41:AN48, AP41:AR48, AT41:AV48, AX41:AZ48," + _
                "F51:H61" _
                      ).ClearContents
End Sub
                        

textual
                            Листинг программы 2
                        
                             arr = Array("1-й день", "2-й день", "3-й день", "4-й день"..............