How to extract first 50 rows

Sub first50()
    Dim w1 As Worksheet
    Dim w2 As Worksheet
    Set w1 = Sheets("Sheet1")
    Set w2 = Sheets("Sheet2")
    Dim r As Range
    Dim lc As Long
    lc = w1.Cells(1, Columns.Count).End(xlToLeft).Column
    Set r = w1.Range(Cells(1, 1), Cells(50, lc))
        r.Copy w2.Range("A1")
        Application.CutCopyMode = False
End Sub

How to install your new code

1. Copy the Excel VBA code
2. Select the workbook in which you want to store the Excel VBA code
3. Press Alt+F11 to open the Visual Basic Editor
4. Choose Insert > Module
5. Edit > Paste the macro into the module that appeared
6. Close the VBEditor
7. Save your workbook (Excel 2007+ select a macro-enabled file format, like *.xlsm)

To run the Excel VBA code:

1. Press Alt-F8 to open the macro list
2. Select a macro in the list
3. Click the Run button