Option Explicit

Sub CopyFormats()
    Dim rStandartPage As Range 'для записи эталонной области ячеек
    Dim rDestinationPage As Range ' для определения области куда будут скопированы форматы эталонной области
    
     Dim lLastcol As Long 'сюда пишем номер последнего заполненного столбца в эталонном листе
     Dim lLastcol2 As Long 'сюда пишем номер последнего заполненного столбца в листе куда надо скопировать форматы
     
         
    On Error Resume Next
    
    ' запрашиваем у юзера ячейку в эталонном листе, чтобы определить ИМЯ эталонного листа с эталонными форматами
    
    Set rStandartPage = Application.InputBox("Кликните на ячейку в листе с эталонной таблицей", "Запрос данных", Selection.Address, Type:=8)
    If rStandartPage Is Nothing Then 'нажата кнопка Отмена - диапазон не выбран
        MsgBox "Отмена выполнения", vbCritical, "Нет данных"
        Exit Sub
    End If
    
With Sheets(rStandartPage.Parent.Name)  ' получаем имя листа с эталонной таблицей
    
    lLastcol = .Cells.SpecialCells(xlLastCell).Column ' определяем последний заполненный столбец в эталонном листе
    
    'выделяем диапазон на эталонном листе со всеми заполненными столбцами
    Range(.Cells(1, 1), .Cells(Rows.Count, lLastcol)).Select
    
    'копируем выделенный диапазон на эталонном листе со всеми заполненными столбцами
    .Selection.Copy
End With
    
    

    ' запрашиваем у юзера ячейку в листе куда надо скопировать форматы из эталонного листа (чтобы определить ИМЯ листа для копирования форматов)
    Set rDestinationPage = Application.InputBox("Укажите ячейку на листе куда копировать форматы ", "Запрос данных", Selection.Address, Type:=8)
    If rDestinationPage Is Nothing Then 'нажата кнопка Отмена - диапазон не выбран
       MsgBox "Отмена выполнения", vbCritical, "Нет данных"
       Exit Sub
    End If
        
        
With Sheets(rDestinationPage.Parent.Name) ' получаем имя листа с таблицей куда копируем форматы
    
    lLastcol2 = .Cells.SpecialCells(xlLastCell).Column ' определяем последний заполненный столбец в листе куда надо скопировать форматы
    
' вставляем форматы из эталонного листа в целевой лист
    Range(.Cells(1, 1), .Cells(Rows.Count, lLastcol2)). _
    PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
       SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End With

    
    
End Sub

Set rDestinationPage = Application.InputBox("Укажите ячейку на листе куда копировать форматы ", "Запрос данных", Selection.Address, Type:=8)

Sub Мяу()
    Dim shStandartPage As Worksheet    'для записи эталонной области ячеек
    Dim shDestinationPage As Worksheet    ' для определения области куда будут скопированы форматы эталонной области
    Set shStandartPage = Application.InputBox("Кликните на ячейку в листе с эталонной таблицей", "Запрос данных", Selection.Address, Type:=8).Parent
    Set shDestinationPage = Application.InputBox("Кликните на ячейку в листе с эталонной таблицей", "Запрос данных", Selection.Address, Type:=8).Parent
    shStandartPage.UsedRange.EntireColumn.Copy
    shDestinationPage.Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
                    SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

On Error Resume Next