Excel guru's Please help..

Sub Copy_to_Master()

Dim sh1 As Integer, lastrow As Long, ws As Worksheet
sh1 = Worksheets("Master").Index   'change to your master sheet name
For Each ws In Worksheets
    lastrow = Worksheets(sh1).UsedRange.Rows.Count
    If ws.Index <> sh1 Then
        With ws
            .Activate
            .Range("A2", .UsedRange.End(xlToRight).End(xlDown).Address).Copy
        End With
        Worksheets(sh1).Cells(lastrow + 1, 1).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    End If
Next ws
Worksheets(sh1).Activate
End Sub

Sub CopyToMaster()
Dim wkSht As Worksheet
Dim DestSht As Worksheet
Dim DestRow As Long
    Set DestSht = Sheets("All")
    DestRow = DestSht.Range("A" & Rows.Count).End(xlUp).Row + 1
    For Each wkSht In Worksheets
        If Not wkSht Is DestSht Then
            With wkSht
                .UsedRange.Offset(1, 0).Copy Destination:=DestSht.Cells(DestRow, 1)
            End With
        End If
        DestRow = DestSht.Range("A" & Rows.Count).End(xlUp).Row + 1
    Next wkSht
End Sub