Creating a Range (VBA/Excel)

[DKenny]

Try this.

The idea being to keep adding cells to the right of the range until I get to the desired width, then adding cells to the bottom of the range until I get to the desired height.

Sub BarguastRange()
Dim RWidth As Long
Dim RHeight As Long
Dim Result As Range
 
    RWidth = 1000
    RHeight = 250
    
    Set Result = Range("A1")
    
    Do While Result.Width < RWidth
        Set Result = Application.Union(Result, Result.Offset(0, 1))
    Loop
    Do While Result.Height < RHeight
        Set Result = Application.Union(Result, Result.Offset(1, 0))
    Loop
    
    Result.Select
    
End Sub