Макрос записанный вручную для всех листов

[as-is]

Помогите, пожалуйста разобраться с синтаксисом макроса.
Особое обращение к заслуженному модератору EducatedFool.
Помогите, пожалуйста.
ранее Вы мне сделали большую услугу-макрос (ниже). Я понадеялся, что все понятно. Задачу выполнил - все ОК. Но теперь оказалось, что не могу справится с тем же макросом, но теперь необходимо подставить макрос, написанный вручную.

-----------------------------------------------------------------
Sub DoToAll()
Application.ScreenUpdating = False ' отключаем обновление экрана
Dim ws As Worksheet 'декларирование переменой
For Each ws In Worksheets
ws.Activate ' активируем лист
DeleteEmptyRows ' выполняем макрос
Next
End Sub

Sub DeleteEmptyRows()
LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r).Columns( 9)) = 0 Then Rows(r).Delete
Next r
End Sub
-----------------------------------------------------------------
То есть вместо DeleteEmptyRows ' выполняем макрос и Sub DeleteEmptyRows()
LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r).Columns( 9)) = 0 Then Rows(r).Delete
Next r
End Sub необходимо подставить макрос, записанный в Эксель 2003 вручную. К сожалению, я так и не понял, как выполняется замена макросов в представленном коде. Какова общая конструкция или шаблон в этом примере. Заранее благодарен.

[Dophin]

а где макрос записанный вручную?

ну вроде вместо

Sub DeleteEmptyRows()
LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r).Columns( 9)) = 0 Then Rows(r).Delete
Next r
End Sub

пишите

Sub DeleteEmptyRows()
'ваш макрос
End Sub