Macro copy paste from two tables

[oliviar]

Hi Guys
I have this code:

                With mybook.Sheets("list")
                    Set sourceRange = .Range("A1:b1000")
                End With

Can anyone help me change it so that if it doesn't find sheet'List' it copies column 4 & 7 from table 1, and columns 4 & 7 from table 2?

Thanks so much