Errors with Ranges

Hi, NatalieE,

Range expects a Column like A and not the number as the first argument, use Cells instead and try

Dim k, j, m, n As Integer
    Dim reticle As String
    Dim numberOfRows As Integer
    Dim Wg As Double
    Dim i As Integer
    Dim id As String
    Dim idss As Double
    Dim vbr As Range
   
    
    
    i = 1 'Vbr column
    k = 6 'id(A/um) column
    j = 2 'reticle number
    n = 2 'id column
    
       
  
   Set vbr = Range(Cells(123, i), Cells(Rows.Count, i).End(xlUp))

Ciao,
Holger