Pull text from one sheet to another

[gllandry]

Hi..

I have a master list of items on sheet 2 (Column A) and then the quantity of those items in column B. This sheet is linked to a planogram in sheet 1 and will pull the item name if the section is in use. If no item is listed in a particular cell on the planogram it pulls a "0". I want to pull only the items with names on the master list (sheet 2) to another sheet (3). Basically I am trying to consolidate only those items with names and quantities. This may be confusing so I have a diagram below...

Sheet 1
Fish 4
0 0
Pork 2
0 0

Sheet 2
Fish 4
Pork 2

[alansidman]

Try this:

Option Explicit

Sub gllandry()
    Dim lr As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    
    ActiveSheet.Range("A1:B" & lr).AutoFilter Field:=1, Criteria1:="<>0", _
        Operator:=xlAnd
    Range("A2:B" & lr).Copy Sheets("Sheet2").Range("A1")

End Sub

How to install your new code

1. Copy the Excel VBA code
2. Select the workbook in which you want to store the Excel VBA code
3. Press Alt+F11 to open the Visual Basic Editor
4. Choose Insert > Module
5. Edit > Paste the macro into the module that appeared
6. Close the VBEditor
7. Save your workbook (Excel 2007+ select a macro-enabled file format, like *.xlsm)

To run the Excel VBA code:

1. Press Alt-F8 to open the macro list
2. Select a macro in the list
3. Click the Run button