help needed

[dennis1989]

Hi i wan to add coding which allows my value to go to the cell beside it instead of going to the cell below, can anyone guide me on how to do it ? Thanks in advance

Sheet1.Cells(24 , 2).Clear
i = 24
'Sheet1.Cells(2 4, 2).AddItem rst![Request]
Do While Not .EOF
If Not IsNull(.Fields( 0).Value) Then
Sheet1.Cells(i, 2) = (.Fields(1).Val ue) & " (" & _
(.Fields(0).Val ue) & ")"
i = i + 1