Looping through tabs and copying and pasting the data into one tab

[alx1056]

Hello,

I have an workbook with 44 tabs. Each tab is labeled with a number (1,2,3,4...). I want to be able to loop through each tab, copy the title of the tab and be able to paste the title beside the data in the tab. There are two columns in every tab. I want: Column A to have the title, Column B to have the original data and C to have the original data. How can I loop through this and copy and paste the header/title of the tab beside the already existing data?

I am new to excel so,
Any help is appreciated!

 

[Fluff]

Hi & welcome to the board.
Is column A on those tabs blank?

 

[My Aswer Is This]

You said:

Each tab is labeled with a number (1,2,3,4...).​

Do you mean each sheet is named 1,2,3,4...
We use the term name not label.
Or explain what a label is.

You said:

copy the title of the tab and be able to paste the title beside the data in the tab.​

What is the title?

 

[Fluff]

If the answer to my question in post#2 is yes try

Sub AddShtName()
   Dim Ws As Worksheet
   For Each Ws In Worksheets
      Ws.Range("A1", Ws.Range("B" & Rows.Count).End(xlUp).Offset(, -1)).Value = Ws.name
   Next Ws
End Sub

Otherwise try

Sub AddShtName()
   Dim Ws As Worksheet
   For Each Ws In Worksheets
      Columns(1).Insert
      Ws.Range("A1", Ws.Range("B" & Rows.Count).End(xlUp).Offset(, -1)).Value = Ws.name
   Next Ws
End Sub

 

[alx1056]

Hello, Sorry for being vague. This is my first Post.

Yes, A:A is a bank Column.

Thank you!

 

[alx1056]

This was perfect! Thank you!

 

[Fluff]

Glad we could help & thanks for the feedback

 

[alx1056]

@My Answer Is This

Yes I meant Each Sheet not Tab, Sorry!