Макрос "Формат по образцу" - VBA

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

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

Option Explicit
 
Sub ГЊГ*ГЄГ°Г®Г±5()
'
' ГЊГ*ГЄГ°Г®Г±5 ГЊГ*ГЄГ°Г®Г±
'
 
'
    ActiveWindow.Panes(1).Activate
    Rows("11:11").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range(Selection, Selection.End(xlDown)).Select
End Sub

Но он не работает как надо... После исполнения макроса лишь выделяются все нижерасполагающиеся строки, а форматирование не применяется к ним!

Решение задачи: «Макрос "Формат по образцу"»

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

                            r = "11:" & ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
    Range("11:11").Select
    Selection.AutoFill Destination:=Range(r), Type:=xlFillFormats
                        