Help in macro

[Amit629]

Hi,
im trying this code but its not work please help.

Sub am()
 
    Dim ws As Worksheets
 
       
      For Each ws In Workbooks("zz.xlsx").Worksheets
     
             
        ws.Range("A1:y" & ws.Range("A" & Rows.Count).End(xlUp).Row).Copy _
            Destination:=summarry.Range("A" & Rows.Count).End(xlUp).Offset(1)
 
    Next ws
 
End Sub

 

[NARAYANK991]

Hi Amit ,

Try this :

Sub am()
    Dim ws As Worksheet
     
    For Each ws In Workbooks("zz.xlsx").Worksheets
        ws.Range("A1:y" & ws.Range("A" & Rows.Count).End(xlUp).Row).Copy _
          Destination:=Workbooks("zz.xlsx").Worksheets("summarry").Range("A" & Rows.Count).End(xlUp).Offset(1)
    Next ws
End Sub

Narayan

 

[Amit629]

Thank you so much Narayan its working.
but need some help in this code,when data copied in summarry sheet its start from cell a2 can we copy data form a1.

 

[Akash kothari]

Hi Amit,

Just remove the .offset(1) from the last line.

Akash