O kokiu tikslu tuscius įrašus iš C stulpelio archyvuot? Anyway jei poreikis 
toks - istrink "If IsEmpty(Cells(eilute, 3).Value) = True Then Exit For"
Aj, del sportinio intereso repleisink:

Sub paspausti()
Dim stulpelis, eilute As Integer
Sheets("Kortelė").Select
Range("B4:G4").Select
            Selection.Copy
            Range("c20").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, 
SkipBlanks _
            :=False, Transpose:=False
            Data = Range("c20")

Sheets("Archyvas").Select
Data1 = Range("a1")
For skaicius = 1 To 10000
If Range("A" & skaicius).Value = Data Then MsgBox "Tokia data jau yra": Exit 
Sub
If IsEmpty(Cells(skaicius, 2).Value) = True Then Exit For
Next

stulpelis = 2
For eilute = 5 To 14
Sheets("Kortelė").Select
If IsEmpty(Cells(eilute, 3).Value) = True Then Exit For
Range(Cells(eilute, 3), Cells(eilute, 7)).Select
    Selection.Copy
    Sheets("Archyvas").Select
    Cells(skaicius, stulpelis).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, 
SkipBlanks _
        :=False, Transpose:=False
        stulpelis = stulpelis + 5
        Next
            Sheets("Kortelė").Select
            If IsEmpty(Cells(5, 3).Value) = False Then

            Range("c20").Select
            Selection.Copy

     Sheets("Archyvas").Select
    Cells(skaicius, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, 
SkipBlanks _
        :=False, Transpose:=False
    Sheets("Kortelė").Select
    Range("c20").Select
            Selection.Clear
    End If
    Sheets("Kortelė").Select
    Range("c5:c14").Select
    Selection.Clear
End Sub




"Audrius"  parašė naujienų news:q24p1g$klp$1@trimpas.omnitel.net...

Viskas kaip ir panašu .......... na tik pakoregavau iš Selection.Clear į 
Selection.ClearContents.
Yra dar toks neaiškumas. Kodėl kopijuoja ir trina C20 langelį, kuris visai 
ne prie ko.
Ir dar. Jeigu C stulpelis ir ne visas užpildytas, vistiek turėtu kopijuoti 
ir surašyti visus C5:G15 langelius, nors ir jie tušti.
Įrašyti šios dienos datą.
Tiesa visai pamiršau apie vieną funkciją.
Reikėtu kad įrašant į archyvą patikrintu ar tokia data jau egzistuoja, ir 
jeigu egzistuoja, tai neįrašytu, o praneštu, kad tokia data jau yra.
Dėkui labai už vargą.

> Gal taip?
>