BTW, try this if the rows may vary, assuming no blank rows/column exist.
[VBA]
Sheets("FB").Range("A2").CurrentRegion.Copy
[/VBA]