スキルアップ・問題解決なら、モーグにおまかせ！

サンプルマクロは、A1:D10のセル範囲の列幅と行高をE11から始まるセル範囲にコピーします。

Sub Sample()

Dim myBaseRng As Range, myNewRng As Range
Dim myRow As Long, myClm As Long

    Set myBaseRng = Range("A1:D10")
    Set myNewRng = Range("E11")

    With myBaseRng
        For myClm = 1 To .Columns.Count
            myNewRng.Columns(myClm).ColumnWidth _
                = .Columns(myClm).ColumnWidth
        Next
        For myRow = 1 To .Rows.Count
            myNewRng.Rows(myRow).RowHeight _
                = .Rows(myRow).RowHeight
        Next
    End With

End Sub