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

Hi,

I am currently using this macro to copy from 1 sheet to another sheet, but what can I do if I want the Sheet 2 to copy only all data value starting Column B1 till last data on last row. Not only data on B1, but starting from B1 to end of column data and row data..then paste into another sheet 3 on A1 as value.

  Application.ScreenUpdating = False
  Worksheets("Sheet2").Range("B1:Y34").Value = Worksheets("Sheet3").Range("A1").Value
  Application.ScreenUpdating = True

Please hope some help.

Thank.