copy specific ranges based on certain values

Hi all, and Happy New Year:

I'm here again to seek help. Here's my scenario:

My sheet 1 has the values in column A to G; column A only contains 0 or 1.
I'm looking for a vba code to copy TO a new worksheet the values in columns B to G (they contain results of formulas within the worksheet) IF the value of A is 1. Column A looks like this:
A B C D E F G
0
0
1
1
1
0
0

I'm hoping for the usual help. Many thanks.

WK

Many thanks. Always reliable. A few tweaks, and it should do it.