Need Help VBA Copying/Pasting Certain Linked Values Between Sheets

Hello,

I have recently started working with VBA, but I'm still pretty new to it. I need some help writing a code that copies a range of values from one sheet to another, but I only want to return the values that have the following criteria:

1. The cells from the first sheet must be visible
2. There must be a value (The number "1" for example) in a different column within that row.

Input Page.JPGOutput Page.JPG

I have attached an example of what I am trying to achieve. I would want to select the range shown on the input sheet, and copy/paste the correct values from columns "B" and "C" (from the input page) onto the output page as shown. Note that the values in row #3 wouldn't be copied because they're hidden. The values in row #4 wouldn't be copied either, because there isn't a number 1 in column "A". Any help would be greatly appreciated.

This works very well, thank you for your help. There are a couple of things I might want to change:

1. The code seems to copy the number 1 along with the data. Is there a way to alter the range to only copy the values in column "B" and "C"?
2. If I were to use a different column for the number 1's (say column "F" for example), how would I alter the code to reflect that change?
3. Is there a way to have the value of the copied cells on the "Output" sheet link back to the original values on the "Input" sheet? That way any change on the input sheet would be reflected on the output sheet.

Thanks again, this seems to have worked. The only issue that I ran into is that the actual document I'm applying this to has sheet names with spaces. The formula returns an error if I have a space in the name of my input sheet. In the example we have been using, is there a way to change the title of the sheet named "Input" to something with a space, say "Input Sheet" for example? I tried replacing the section "=Input!" with "=Input Sheet!", but that returned an error.

It seems like a minor thing but I haven't been able to get it to work. Worst case scenario is I change the name and add "_" between my words. I have other codes that reference the current sheet name (with the spaces) though, so I'd hate to go through and rewrite everything. Thanks again for your assistance.

Thank you, that's exactly what I needed. I was able to get the sheet to work as desired. Your help is greatly appreciated.