Something like this maybe?

Sub DoubleDimensions()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' Double column width for columns BU:HG
    Dim col As Range
    For Each col In ws.Range("BU:HG").Columns
        col.ColumnWidth = col.ColumnWidth * 2
    Next col
    
    ' Double row height for rows 95:186
    Dim row As Range
    For Each row In ws.Range("95:186").Rows
        row.RowHeight = row.RowHeight * 2
    Next row
    
    ' Double font size for cells in the range BU95:HG186
    Dim cell As Range
    For Each cell In ws.Range("BU95:HG186").Cells
        cell.Font.Size = cell.Font.Size * 2
    Next cell
End Sub