if i understand, you wnt something in the cell next to it?

cell.offset(0,1).value = "your 2nd value"

--


Gary


"alvin Kuiper" wrote in message
...
Hi
I'm using this to write a new value in a empty cell
With Worksheets("Ark1")
Set cell = .Cells(Rows.Count, 1).End(xlUp)
End With
If Not IsEmpty(cell) Then Set cell = cell(2)
cell.Value = antal

this code insert a new postin collum A

Now my problem is that i have 2 values i want to ahve in collum
A and B How do i do that?

regards

Alvin