Hello all.

Im having trouble with the syntax on a line and Im not sure whats wrong with it exactly. I havnt been able to find anything online on how to fix it either.

the code is

Sub cmt()
 Dim cmt As Long
Dim I As Long
Dim bok As Range
Dim pag As Range
Dim x As Long

x = 0


cmt = 2
   I = 0

Set bok = Worksheets("runsheet").Cells(3, 2)
Set pag = Worksheets("runsheet").Cells(4, 2)


 While ThisWorkbook.Sheets("runsheet").Cells(cmt, 10) <> ""

    Range("Origin" & I).Select
    Selection.Offset(4, 0).Select
    
    ActiveCell = Range("origin" & I) & " # " & Range("symptom" & x) & " Bk " & bok & "-Pg " & pag & ") " & ThisWorkbook.Sheets("runsheet").Range(cmt, 10)
   ActiveCell.Font.ColorIndex = 46
 
Set bok = bok.Offset(1)
Set pag = pag.Offset(1)

 
   cmt = cmt + 1
   I = I + 1
   x = x + 1
   
    Wend
End Sub
I the variables in red are the ones I think are the problem. Im not sure how to write it to show the value of the cell in the formula.
Im trying to format together multiple cells into one cell and move down the list of data in sheet1 ("runsheet").

thanks!!