Copy data from multiple sheets

Hi
NO attachments!
try these codes

Sub SumData()
Dim a As Long, b As Long, d As Long, x As Long
d = 2
    For a = 1 To Sheets.Count
        If Worksheets(a).Name <> "Total by Job_Code" Then
        x = Worksheets(a).Cells(Rows.Count, 1).End(xlUp).Row
        Worksheets("Total by Job_Code").Cells(d, 1) = Worksheets(a).Name
            For b = 9 To x
                If Worksheets(a).Cells(a, 1) <> "" Then
                Worksheets(a).Range("A" & b & ":Z" & b).Copy
                Worksheets("Total by Job_Code").Cells(d, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                        :=True, Transpose:=False
                d = d + 1
                End If
            Next b
        d = d + 1
        End If
    Next a
End Sub

Ravi