Hi
If i have this
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

What type is Cell as vaiable

Regards alvin