Error in Code

[Rahulwork]

i have a code to consolidate the all sheet into one.

sheet name is consolidate. but whenever i have running this, data copying twice.

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Sheets("One").Range("a1:c1").Copy Sheets("consolidate").Range("a1:c1")
    For Each sh In ActiveWorkbook.Worksheets
        If sh.Name <> "consolidate" Then
            With sh
                a = .UsedRange.Offset(1)
                Sheets("consolidate").Range("a" & Sheets("consolidate").Cells(Rows.Count, 1).End(xlUp).Row + 1) _
                        .Resize(UBound(a, 1), UBound(a, 2)) = a
                 Cells(1, 1).Select
            End With
        End If
    Next sh
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True




End Sub

please help.

 

[Fluff]

Is the "Consolidate" sheet blank when you run the macro?

 

[Rahulwork]

Yes. Only the header is there in first row. which is same as other sheets

 

[Fluff]

In that case, I'm not sure, as that code is only copying the data once, not twice.
What makes you think it's copying everything twice?

 

[Rahulwork]

bcoz in other sheet i have total 4 rows which need to be consolidate but now it;s 8 and twice each row.

i meant first 4 rows whch is required then again pasting the same rows

 

[Fluff]

Do you get the data for all sheets & then below the same data again, or do you get the data from the 1st sheet twice & then the 2nd sheet twice etc?

 

[mohadin]

Hi
You must be running the code more than once
IT WOULD BE BETTER TO ADD ONE LINE CODE AT THE VERY BEGGING OF THE CODE TO CLEAR THE CONSOLIDATE SHEET
Any way as you may or may not notice that your code is copping the header from the other sheet so you the line code may be add:

Sheets("sheet1").Cells.ClearContents

Regards