Copy range till last row from sheet x to sheet y.

Then:

Application.ScreenUpdating = False
If Application.CountA(rows(1), Columns(1)) = 0 Then
    Worksheets("Sheet2").Range("B1").CurrentRegion.Copy
    Worksheets("Sheet3").Range("A1").PasteSpecial xlPasteValues
Else
    With Worksheets("Sheet2").Range("A1").CurrentRegion
        .Offset(1, 1).Resize(.rows.Count - 1, .Columns.Count - 1).Copy
        Worksheets("Sheet3").Range("A1").PasteSpecial xlPasteValues
    End With
End If
Application.ScreenUpdating = True