consolidation from multiple sheets

[varunmol]

Hi Everyone,

I am new to excel and don't know much about it.

I have a very simple problem

• I have email addresses of customers in different sheets under one workbook
• All the data is in the first row of each sheet (Row A) (Heading is - Email)
• I just want to consolidate all the data into one sheet.

I hope I have explained the problem well. Any help is appreciated

Thank you so much!

 

[My Aswer Is This]

You said:

• All the data is in the first row of each sheet (Row A) (Heading is - Email

There is no Row A

Are you saying you want the entire row 1 of each sheet copied to a new sheet named "Alpha"

If not please explain more.
Or are you saying copy all column A from each sheet into a new sheet named "Alpha"

 

[varunmol]

well all the data is in Row 1 of each sheet
and i just want it all in a new sheet.

no matter what the name is... hope this is clear

 

[My Aswer Is This]

Try this:

Sub Copy_Row_One_To_Sheet_Alpha()
'Modified  3/11/2021  4:45:39 AM  EDT
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Sheets.Add(Before:=Sheets(1)).Name = "Alpha"
Lastrow = Sheets("Alpha").Cells(Rows.Count, "A").End(xlUp).Row

    For i = 2 To Sheets.Count
        With Sheets(i)
            .Rows(1).Copy Sheets("Alpha").Cells(Lastrow, 1)
            Lastrow = Sheets("Alpha").Cells(Rows.Count, "A").End(xlUp).Row + 1
        End With
    Next
Application.ScreenUpdating = True
End Sub