Kod ten jest skopiowany z okna 'Temat' i sam zobacz, wpisałem dla przykładu cyfrę 5 a zapis zaczyna się i tak od wiersza 2. Sprawdź na oknie 'Vydejka' (na razie działa tam tylko dodawanie nowej pozycji). Przy okazji, w starym pliku mam do arkusza dołączony poniższy kod który ma za zadanie skopiować zawartość komórki w kolumnie 'C', jak ten kod przerobić aby kopiował zaznaczoną zawartość kolumny '3' w oknie ListBox? Akurat kopiowanie tej zawartości jest kluczowym elementem tego okna 'Vydejka'. Dim doClip As DataObject Dim sText As String If ActiveCell.Column = 3 Then Set doClip = New DataObject If ActiveCell = False Then sText = Empty Else If IsNumeric(ActiveCell) Then sText = ActiveCell.Value Else sText = Empty End If End If doClip.SetText sText doClip.PutInClipboard Set doClip = Nothing End If http://obrazki.elektroda.pl/5252111200_1361702069_thumb.jpg