I have been out of the loop for a while; when transferring a selected item (Not Multiple) this coding starts in cell "A2" and I would like to have it start in cell "A1". Any help would be appreciated.

For lngItemSelected = 0 To Me.lstAccountName.ListCount - 1
If Me.lstAccountName.Selected(lngItemSelected) = True Then
Worksheet.Range("A65536").End(xlUp)(2, 1) = Me.lstAccountName.List(lngItemSelected)
Me.lstAccountName.Selected(lngItemSelected) = False
End If
Next lngItemSelected


I tried changing the xlup to (1,1); it doesn't count down to the next row and overwrites in cell ("A1"). This is sure strange from working with COBOL for a few years.