Copy the data from one sheet to another without empty rows

[Radecki]

Hi All,

You helped me in the past - hope you can guide me this time as well
Sorry I didnt know how to correctly title this post...

My issue:

In sheet 'one' I have a simple list of products with the price, etc.
Column 'C' is for quantity ('ILOŚĆ')
If I type specific quantity in the 'C' column, then the whole row is copied to the sheet 'two':

https://imgur.com/A5ccAh8

What I am trying to achieve is to have the list in sheet 'two' with no blanks in between (for the products that I have not put any quantity).
Any idea how to have it listed with no empty rows?

https://imgur.com/V1YtAXm

I would lile it to look this way (without the need of manually hiding empty rows):

https://imgur.com/9uGcrRQ

I searched internet but I couldn't find any solution.
Please help.

Excel file can be downloaded here: http://s000.tinyupload.com/?file_id=02557717072149958749

Radek.

 

[mumps]

Start by deleting all the formulas in range A5:H13 in sheet "2". Then copy and paste this macro into the worksheet code module. Do the following: right click the tab for your sheet "1" and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Enter a quantity in column C and exit the cell.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Dim x As Long
    x = Sheets("2").Range("A4:A" & Sheets("2").Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
    Target.EntireRow.Copy
    Sheets("2").Rows(x).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub