VBA: Copy Rows from another tab if row is not completely blank or zero

[shp0590]

I have a sheet that has data set up like this, for example:

Apples	0	0	0	0
Oranges	1	0	1	0
Bananas	1	1	0	0
Kiwis	0	0	1	1
Mangos	0	0	0	0

I want my Active sheet to scan the above table from the Source tab and copy it into my Active Sheet if the row containing data is not completely zero or blank. Thus, the resulting table copied over into the Active sheet will be only Oranges, Bananas, Kiwis because Apples and Mangos are all completely zero

Oranges	1	0	1	0
Bananas	1	1	0	0
Kiwis	0	0	1	1

 

[shp0590]

I referenced another thread from here that helped a bit (Macro to Copy non-zero values and paste it in a specific range) but I can't seem to figure out how to configure it so that it scans a whole row of data from another tab