Sub code() 'http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=174
Dim LastRow As Long, Rw As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    With Sheets("Ëèñò2")
        Rw = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        For i = 4 To LastRow
            If Cells(i, 1) = "a" Then
                Range(Cells(i, 2), Cells(i, 20)).Copy .Cells(Rw, 1)
                Rw = Rw + 1
            End If
        Next
    End With
End Sub